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ABSTRACT 



This research examines the practicality of using microcomputers and heuristic search 
techniques to handle scheduling problems. A program was developed using a hierarchical 
approach to produce an Annual Training Schedule for Commander Patrol Wing Ten, which 
includes the ready-alerts and six major inspections completed by each of the seven 
squadrons prior to deployments. The scheduling process is broken into three major 
phases: (a) Initialize the program database, (b) Determine the optimal month to schedule 
each inspection, and (c) Determine the optimal sequence of days within the month to 
schedule each inspection. The program is written in the language M-Prolog and runs on a 
Motorola 68020-based workstation. Comparisons made between the manually produced 
and the computer-generated schedules using data for two different years show that a 
microcomputer is capable of producing a more optimal schedule in much less time. 
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I. INTRODUCTION 



A . MILITARY PERSONNEL TURNOVER 

Military organizations have a continuous flow of personnel coming in and going out. 
Regardless of the fluctuating manning level, responsibilities must be kept and commitments 
must be fulfilled by these organizations. Before leaving, the outgoing personnel do what 
they can to pass along to those they leave behind the knowledge and techniques they have 
discovered along the way . Those that are filling the shoes of the experienced must often 
learn quickly and frequently while enduring the pressures from superiors to produce 
immediate results. 

Turnover files, job description notebooks, and even one-on-one pass-downs cannot 
always prepare the newly assigned personnel for the decisions they must make. The more 
complex a job or task becomes, the harder it is to learn competently in a short period of 
time. Without the benefit of experience or time on the job the new personnel must rely 
heavily on their past experiences and intelligence to solve the new problems. Many 
decisions involve very complex situations with multitudes of details that are easily 
overlooked or forgotten even by the experienced personnel. With the advent of the micro- 
computer, assistance need not go with the transferred personnel. Programs that assist in 
solving problems, that do not need to be retaught the complexities involved, and that will 
not forget the miniscule details that are so easily overlooked during the rush to complete a 
task must be made available. 

Developing and maintaining the schedule of activities for assets is one example area in 
which programs need to be developed. The emphasis of this thesis has been to design a 
system to be used on a microcomputer by the training officer at Patrol Wing Ten, Moffett 
Field, California (CPW-10) to produce a yearly schedule of the at-home inspections 
required of the seven squadrons stationed there. 
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B . SELECTED SCHEDULING PROBLEM 

Scheduling problems have qualities that are generic and yet there invariably are 
variables and exceptions that make each a unique problem. This prevents a generic solution 
to the problems of scheduling. Scheduling the training of the seven Moffett squadrons 
involves managing not only the squadrons, but also the inspection teams. Time constraints 
are added externally and internally. Operational commitments must be allowed for. 
Inspection team availability must be considered. Qualification time limits cannot be 
exceeded. 

The training officer is computationally overwhelmed when attempting to optimize such 
a schedule. There are simply too many possibilities for any one person to consider them 
all. Even microcomputers become over-taxed with the combinatorial problem that arises 
when attempting to find the best way to schedule six different activities for seven different 
squadrons over a twelve-month period. 

In order to solve the combinatorial problems, this thesis has approached scheduling in 
a hierarchical manner. Heuristics are used to select the month that each inspection should 
ideally take place. Conflicts that occur between inspections with the same ideal month are 
resolved by finding a new month to hold one of the inspections within a three month 
window either side of its ideal month. Once a month is selected for all of the inspections 
that are to be scheduled, the optimum trialperiod for each event within its particular month 
can be found. The original combinatorial problem is thus greatly reduced, allowing the 
overall scheduling process to be done quicker and using less space. 

C. DESCRIPTION OF REMAINING CHAPTERS 

Background information on general scheduling algorithms is discussed in chapter II. 
In chapter III the details of the scheduling problem selected for this thesis are amplified. 
The rules used by the Training Officer to manually compute the yearly schedule will be 
explained. The algorithms used in the past to solve the CPW-10 training schedule problem 
are also outlined in chapter III along with the approach taken by LCDR David Hutson to 
computerize this scheduling. 
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The approach this thesis undenook to solve the CPW-10 training schedule problem is 
explained in chapter IV. A comparison of the improvements it made over previous 
techniques and the details of the M-Prolog code that was developed in this thesis are 
examined in chapter FV. The results achieved during this thesis are covered in chapter V. 
Recommendations and a summary of this thesis can be found in chapter VI. 

Appendix A holds the actual source code for this program. Appendix B contains a 
sample data file. An example of the file containing a final schedule produced is found in 
Appendix C. 
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II. BACKGROUND 



A. SCHEDULING 

Scheduling is something people do to organize the way they intend to use the 
resources at their disposal to achieve their goals. More specifically, it is the ordering of the 
steps necessary to achieve goals, considering the start and/or finish times of the steps. The 
similarities of these two terms causes them to commonly be used synonymously. In many 
situations if a person determines the sequence of events the schedule will automatically fall 
into place. This occurs in situations where the events begin at a particular spot during the 
period selected for it, such as the earliest time or the latest time possible. However, 
sequencing does not take into account the idle time between events and scheduling 
does. [Ref. 1, p.9] 

Though scheduling has been practiced for centuries, it was not formalized until the 
early 1900's. The Gnatt chart, developed by Henry L. Gnatt, used in production 
scheduling during World War I became a standard tool for schedulers. [Ref. 2] This 
technique's simplicity and graphical appeal are the reasons it is still commonly used today. 

During the late 1950's with the advent of the electronic computer, new scheduling 
techniques emerged. Two significant network-based models that were developed during 
that period were the Critical Path Method (CPM) and the Performance Evaluation and 
Review Technique (PERT) [Ref. 2]. These two methods fall in the category of project 
scheduling, planning of activities that must be given a precedence with or without resource 
constraints. PERT in general finds the schedule that sets the start and finish times resulting 
in the minimum project time. CPM finds a schedule having the lowest cost during a 
specified time. Both of these methods used techniques based on the solutions of theoretical 
problems such as the shortest-route problem, the critical path problem, or the flow 
problem on a network. [Ref. 3, pp. 48-50] 
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B. AI TECHNIQUES 

A scheduling problem that is solved using CPM can be translated into a heuristic 
search. Accomplishing a task or a machine completing its work becomes a transition from 
one state to another. A state is a group of events that have been scheduled. Each state will 
have costs associated with the arrangement of the events within it. For very simple 
problems every possible combination of transitions can be determined, to yield all the 
schedules possible, and to then select the one with the least cost as the solution. 

But in most "real-world" scheduling, the size of the combinatorial problem is too large 
to be accomplished in a reasonable amount of time. Artificial-intelligence search techniques 
such as A*, hill-climbing, and simulated annealing have been used to solve scheduling 
problems. These methods use heuristics to guide the search to an optimum solution and 
avoid the combinatorial problem. 

The A* search technique uses an agenda of states from which it repeatedly chooses the 
one with the best evaluation and total cost sum to work with. It then finds all the possible 
new states, or successors, which can be reached from the selected best-state using a single 
transition. Each of these successors, together with their evaluation and total cost, is added 
to the agenda. This process repeats until a state selected from the agenda is the goal. 

The agenda maintained in the A* search can grow very large, consuming considerable 
amounts of computer memory. For this reason the no-path search is sometimes a preferred 
search algorithm. This method is a modification to the A* search, developed by Prof. 
Rowe [Ref. 4]. This algorithm varies from the A* by not storing state sequences used to 
reach agenda states, and pruning the agenda after each cycle. A "k-factor" can be set to 
determine how much of the agenda will be pruned. Only items whose evaluations are a k 
less than the best-state’s evaluation are maintained on the agenda. This can sometimes 
prevent finding the absolute optimum path, but a large agenda can be prevented. 

The hill-climbing search is a depth-first search that uses an evaluation function. With 
this search no agenda at all is maintained. This method does not allow backtracking to try 
alternate routes and will only work in situations for which the goal is guaranteed reachable 
from any of the possible routes selected. 
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Simulated annealing is like hill-climbing but uses stcxjhastic processes to help choose 
from the agenda. In a scheduling situation the process starts with an initial schedule. 
Events are then randomly repositioned. The result is evaluated after each rep>ositioning. 
The process continues until the resulting schedule cost reaches an asymptote. This method 
does not guarantee the absolute optimized schedule but has been found effective finding 
improved schedules and can minimize the combinatorial problem. [Ref. 5,6]. 
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III. APPLICATION DESCRIPTION 



Of the information used in developing this program not taken from [Ref. 7], most was 
gathered during interviews with the officers in the CPW-10 Training Department [Ref. 
8,9,10]. The author was tilso able to draw on his own experience gained during prior 
operational tours at both the squadron and wing levels. 

A. SQUADRON CYCLE 

The CPW-10 Training Officer is responsible for the training of the seven Patrol 
Squadrons permanently stationed at Naval Air Station Moffett Field, California. Of the 
seven squadrons, two are on operational deployments any given time. The emphasis of the 
training schedule is to prepare the at-home squadrons to be ready for deployment. The 
normal cycle for the squadrons is twelve months at-home and six months on deployments. 
This can be changed at any time but is a general rule. 

During the at-home period the squadrons are given a thirty day period immediately 
following the return from deployment called the Post-deployment Safety Stand-down 
period. This period is given to the squadron to basically regroup after the stresses brought 
upon by operational deployments. The training officer avoids scheduling any events for a 
squadron during its Safety Stand-down period. 

Ready-alert periods are another time interval in which the training officer avoids 
scheduling any events for the squadrons. The ready-alert periods are very similar to a 
deployment period. The major difference is that the squadron remains at-home. The 
ready-alert periods are also normally only a month in duration. On some occasions it is 
necessary to extend a ready-alert period to one and a half months. During a ready-alert 
period a squadron must be prepared to assume any operational tasking that might arise. 
Operational tasking would take priority over and would prevent the completion of any 
inspection. The possibility of conflicts with operational commitments makes the ready- 
alert periods undesirable for scheduling of other activities. 

Another at-home period that is maintained free from training or operational tasking is 
the forty-five-day period immediately preceding the date a squadron commences a 
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deployment This period is normally left open to provide the squadron with a relative quiet 
period for leave and to make the final preparations for moving to the deployment site. This 
also allows for an extra period in case a squadron must make up any of the training 
evolutions that must be accomplished prior to deployment. 

B. TRAINING EVENT DESCRIPTION 

There are seven primary inspections a squadron must pass prior to a deployment. The 
training officer is responsible for scheduling these inspections for the squadrons assigned 
to his wing^ For some of the inspections, the order in which they occur relative to other 
inspections is important, while others may be held anytime. The seven inspections are; 

1 . NTPI 

The Nuclear Training Proficiency Inspection (NTPI) is conducted by a team of 
inspectors from Commander Nuclear Weapons Training Group Pacific, San Diego, 
California. It is a records and procedure inspection requiring two uninterrupted working 
days. 

2. Pre-NTPI 

The Nuclear Training Proficiency Pre-Inspection (Pre-NTPI) is conducted by 
personnel from within CPW-10. Its purpose is to ensure the squadron is ready for the 
NTPI and must be conducted prior to it. 

3 . CTPI 

The Conventional Weapons Technical Proficiency Inspection (CTPI) is 
conducted by a team from Commander Patrol Wings Pacific, Moffett Field, California 
(CPWP). In the past this was scheduled approximately three weeks prior to the MRCI. 
Due to a recent change in policy at CPWP, the CTPI is given with relatively short notice. 
This prevents scheduling this inspection along with the other inspections. 



'There are four active-duty U.S. Navy land-based patrol air wings. Each have five to 
seven active duty fixed-wing patrol (VP) squadrons subordinate to them. 
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4 . MRCI 



The Mining Readiness Certification Inspection (MRCI) is conducted by an 
inspection team from the Commanding Officer, Mine Warfare Inspection Group, 
Charleston, South Carolina. This is a four-working-day-inspection. 

5 . Pre-MRCI 

The Mining Readiness Certification Pre-Inspection (Pre-MRCI) was normally 
accomplished during the same period as the CTPI. It now takes place approximately three 
weeks prior to the MRCI. The purpose of this inspection is to ensure the squadron is 
adequately prepared for the MRCI. Like the Pre-NTPI it is conducted by CPW-10 
personnel. 

6. Cl 

The Command Inspection (Cl) is an administrative inspection that is performed 
as the final test that the squadron is ready to go on deployment. This is a one-day 
inspection performed by CPW-10 personnel as close to and not less than 45 days prior to 
the deployment start date as possible. 

7. NATOPS Inspection 

The Naval Air Training and Operating Procedures Standardization (NATOPS) 
inspection is an aircrew proficiency examination that ensures the squadron's aircrew 
personnel are knowledgeable of the correct procedures to operate the aircraft safely. This 
inspection involves written exams for all the aircrew positions in the P-3 Orion aircraft, as 
well as flight examinations given to three of the flight crews. Ten working days are allowed 
on the schedule to ensure adequate time to accomplish all the evolutions required for this 
inspection. 

C . THE PROBLEM 

Traditional scheduling problems have dealt primarily with activities that are consumers 
of a given amount of time. The problem has been to optimize the order or placement of the 
time activities to maximize the efficiency of the total allocated time. Or in other words, find 
the sequence of events such that there is the least amount of wasted time and the overall 
output is at a maximum. 
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The problem faced by the CPW-10 Training Officer is different in that he is not 
concerned with tninimizing the time between events. Actually his intention is to optimize 
the gap between events such that there is not too much or too little time between events. 

An additional subtlety is that conflict arises because the scheduler must not only take 
into consideration the gaps between events for a spiecific squadron, but must also consider 
the interval at which the inspection team is being scheduled. 

D. PRIOR APPROACHES 

The manual algorithm for arriving at the CPW-10 training schedule has been 
developed over the years and is informally maintained by the training officers in what is 
referred to as the Training Officer's turnover notebook. The following algorithm is what 
has been used in the past and is currendy being used by the training officer at CPW-10 to 
manually develop the yearly training plan [Ref. 7]. 

1 . Fill in the deployment periods for each squadron. A deployment begins 

and ends on the tenth of a month. 

2. Compute the latest date each inspection can take place in accordance with 

the periodicity requirements. Mark these on the schedule draft. 

3 . For each squadron, annotate the draft with the following periods: 

a. Its ORE vulnerability period. 

b. Its time between 45 days prior to its deployment and the deployment. 

c. Its post-deployment safety stand-down. 

4. Assign the ready-alerts. 

a. The ready-alert periods do not overlap. They begin on either the first 
or the sixteenth of a month, depending upon whether they are to be a 
30-day or 45-day period. 30-day periods are the ideal. 

b. Determine which squadron has the ready-alert the last month of the 
current planning year. This is the starting point for future ready- 
alerts. 

c . When selecting a ready- alert do not consider any squadron that: 

(1) Held the ready-alert the month prior to the month being 
scheduled. 

(2) Is on deployment. 

(3) Is in its post-deployment safety stand-down. 

(4) Is in the ORE vulnerability period. 

(5) Is in the period 45 days prior to the deployment. 
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d. If more than one squadron remains from part c, select one that has 
not yet been scheduled for a ready-alert during its current at-home 
period. 

e. If no squadron is available for part d, temporarily skip to the next 
month and select a squadron in accordance with parts c and d. Then 
split the skipped month between the previous ready-alert and the 
selected ready-alert squadron. This will assign the reily-alert to two 
squadrons over a three-month period. 

f . Consider the following as the preferred order to select from available 
squadrons: 

( 1 ) Those in third month or later following post-deployment safety 
stand-down. 

(2) Those in second full month or later after the post-deployment 
safety stand-down. 

(3) Those in first month of ORE vulnerability period. 

g. Continue steps c through f until every month has some squadron 
assigned to a ready-aleit 

5 . Schedule the NTPI for each squadron (as required): 

a. The date must be after the safety stand-down and not during any read 
alert. 

b . Prefer the latest date possible. 

c. There must be prior time for the pre-NTPl. 

d. Ensure that no major holiday interrupts the pre-NTPl /NTPI block. 

6. Schedule each pre-NTPl. The date must fall after the safety stand-down. 

7. Using the due dates marked on the draft, schedule the rest of the activities. 
None should be during a ready-alert and all should be after the post- 
deployment safety stand-down. 

a. The NATOPS evaluation should be as early as practical. 

b. The pre-MRCl should be as early in the ORE vulnerability period as 
practical. 

c. The MRCl should be no earlier than two weeks after the pre-MRCl, 
with same restriction as the pre-NTPI/NTPI. 

d. The Cl should be on the last working day of the ORE vulnerability 
period. 

8. Make necessary adjustments to optimize the overall schedule and the 
resources with which it is built. 



The final step leaves a great deal of work for the training officer to accomplish. To 
optimize the schedule requires making judgements on issues that are not always clearly 
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objective. It is also requires juggling the events in the schedule to make all the events fit. 
This leaves room for mistakes and, without a clear idea of which is more optimal of two 
given situations, can lead to inconsistencies in the final schedule. It is at this stage that the 
experienced scheduler will have a distinct advantage over a newly-assigned individual. 

In LCDR Hutson’s prototype three separate searches are used to complete the 
schedule. The first search schedules the ready-alerts. The second search schedules the 
events that do not occur during the ORE vulnerability period. The third search schedules 
the events that are during the ORE vulnerability period. With the correct k-factor for the 
final two searches, this prototype will arrive at a much improved schedule compared to the 
manually derived schedule. Finding the right k-factor, however, is a matter of trial and 
error, and the program can then take several days to run. It was also discovered that when 
converted to M-Prolog, Hutson’s program required too much space to run on the computer 
used for this thesis. [Ref. 7] 
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IV. PROGRAM DESCRIPTION 



A. PROGRAM PERIPHERALS 

The program written as part of this thesis was done on an IS I Optimum V 
Workstation 1 running the UNIX^ operating system. The language used is M-Prolog 
because there are both interpreted and compiled versions to run on both the ISIs and IBM- 
PC^ compatible machines such as the Zenith-248^* now common to most military 
commands. The ISI workstation has the Motorola 68020, 16.67Mhz-chip as its processor. 

B . OVERVIEW OF THE NEW APPROACH 

In this thesis the scheduling problem was broken down into three separate stages with 
the intention of greatly improving on the time required by LCDR Hutson's prototype to 
produce a final schedule. In the first stage the initial database required to build the schedule 
is established. The second stage divides the year that is to be scheduled into months and 
determines which month is best for each event to occur in. The third and final stage then 
optimizes the schedule by determining the best days for each event. 

1 . New Algorithm 

The new algorithm used in this thesis's program is broken into three stages. 
During each stage a search is conducted. 
a. Stage I algorithm 

(1) Read the datafile DATABASE.pro and assert its contents as 
facts in the program's database. The following facts may or 
may not be contained in the datafile: 

(a) Start and finish dates for the schedule 



* "Optimum V Workstation" is a registered trademark of Integrated Solutions 
Incorporate. 

2"UNIX" is a registered trademark of ATT. 

3"IBM-PC" is a registered trademark of the International Business Machines 
Corporation of Armonk, N.Y., U.S.A. 

^"Zenith-248" is a registered trademark of Zenith Corporation. 
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(b) Prior-event dates 

(c) Deployment dates 

(d) Earmark (or Drop-Dead) dates 

(e) Ready-alert schedule 

(2) If the start-date, finish-date, prior-event-dates or deployment 
data were not read in from the datafile, then query the user to 
get the information. 

(3) If the earmark dates were not read in, either query the user or 
compute them. Use the prior-event dates to compute the 
earmark dates based on the known qualification durations ^ 
The durations are listed in Figure 4.1 [Ref. 8]. 



Event Name 


Qualification Duration 


Cl 


12 months 


NATOPS 


12 months 


NTPI 


12 months 


MRCI 


18 months 



Figure 4.1 Event Qualification Lengths 



(4) If the ready-alert dates were not read-in, either have the user 
input them or use a nopath search to determine the optimum 
arrangement for them. The program used in LCDR Hutson’s 
prototype was used here, modifi^ by adding successor rules to 
permit scheduling up to three ready ^erts per squadron, instead 
of only two. [Ref. 7]. 

(5) At the completion of Stage I the program database contains all 
the facts mention in part (1) above. 

b . Stage II algorithm 

(1) Generate the first_pick_months for each event required to 
occur during the schedule year, using the table shown in Figure 
4.2. 



*A qualification duration begins when a squadron successfully completes the 
inspection for the qualification. The squadron is required to successfully complete the 
inspection again prior to the end of the qualification duration. 
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Inspection 


Best Month for Initial Schedule^ | 


pre-NTPI 


1 month prior to NTPI 


NTPI 


0 months prior to Earmark date 


Pre-MRCI 


4 months prior to Deployment start 


MRQ 


3 months prior to Deployment start 


Cl 


45 days prior to Deployment start 


NATOPS 


2 months after Deployment finish 



Figure 4.2 Event Optimal Month Computation 

(2) Using a nopath search, determine the actual months by 
repeatedly choosing the best schedule and resolving a conflict 
within that schedule. Resolve a conflict by selecting an event 
which has a conflict and change its month to vary from its 
first_pick_month by moving it (in order of preference): (1) 
one month prior, (2) one month later, (3) two months prior, (4) 
two months later, (5) three months prior, (6) three months later. 
The new placement cannot conflict with anything else in the 
schedule. If the selected event cannot be rescheduled without a 
conflict, then select the next event with a conflict and resolve its 
conflict. Continue until a schedule results having no conflicts 
or a minimum number of conflicts. The schedules are evaluated 
by summing the number of conflicts it contains and the total of 
its costs as determined using the table shown in Figure 4.4. 
The best schedule is the one having the lowest evaluation. 

(3) The result of Stage II is a month-schedule for the period to be 
scheduled. 

c . Stage III algorithm 

(1) Taking the events of the Stage II schedule in chronological 
order, without back tracking, find the trialperiod (sequence of 
days) for each event during its month that results in a day- 
schedule with the least total cost (a hill-climbing search). 



^The best month for the initial schedule was determined by studying the actual 
schedules used during fiscal years 1986 and 1989. 
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C. MODULE DESCRIPTION 



The program was written using the ten modules shown in Figure 4.3. Each of the ten 
modules is pretranslated (a form of compilation) into separate binary files which are then 
consolidated into a single binary file that can be run using the M-Prolog interpreter. To run 
the program in the compiled mode, each module is compiled separately and then 
consolidated into a single compiled file that can be run. 




Figure 4.3 Program Module Block Diagram 
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1. Vpscheduler module 

The vpscheduler module contains the top level predicate go which is used to call 
all the other routines in the program. Within this module are routines written by LCDR 
Hutson for computing and displaying the individual process times as the program runs. It 
calls the routines to initialize the database, conduct the Stage II search, do the final search, 
and print the schedule to a file. 

2. Vpinterface module 

This module contains the routines necessary to initialize the program database. 
The initialization procedure begins by asking the user if the database file has been updated. 
If the database file has not been updated, the user is queried for the information necessary 
to build it. 

The database file, DATABASE.pro, is a text file. Each line in the file can easily 
be read from the file and asserted as a fact in the program database. A sample datafile is 
shown in Appendix B. Most of the information in this file is stored in the date fonnat^ to 
make reading and changing the datafile simpler. An exception to this is the trialperiod^ 
information which uses the daynumber format. 

If the datafile does not contain all the information required to start Stage II, the 
interface module will build the datafile. Some of the information must be input by the user, 
and some of it can be computed. The yearbegindates, and yearenddates, priorevent- 
dates, and deployment data (prerequisite facts) must all be contained in the datafile or the 
user will be queried for the information and the interface module will write it into the 
datafile. 

Following this, all the information contained in the datafile is asserted into the 
program database as facts. If the datafile did not contain earmark facts, then these will be 
computed using the prior event dates. The program does not take into account that some 



*The date format is a Prolog list containing the day, the common three-letter 
abbreviation for the month (using lower-case letters only), and the year. Example: 5 

February 1989 in the date format is [5,feb,1989]. 

^A trialperiod is the sequence of days during which an event may occur. A trialperiod 
is defined by its start daynumber through its finish daynumber. 
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squadrons may have been given extensions on some of the inspections, delaying the actual 
earmark date; then the user should put the correct earmaik dates in the datafile. 

3. Vpreadysearch module 

This module is used \vhen the user wants the computer to determine the ready- 
alert schedule. This is a M-Prolog version of the ready-alert search done by LCDR 
Hutson, enhanced to schedule up to three ready-alerts periods per squadron. Routines have 
also been added to convert the readyevents that contain daynumbers^ as start and finish 
dates into ready_month facts that contain the month numbers as the start and finish dates, 
which are used in the Stage II search. 

4 . Vpgenerator module 

The vpgenerator module is called to compute the trialperiods if the datafile 
does not contain them. The final step in initializing the database is to obtain the ready-alert 
schedule. If the datafile does not contain ready-alert facts, the user has the option of 
entering the ready-alert events or having the program compute them using the 
vpreadysearch module.This is an M-Prolog version of the generator module written by 
LCDR Hutson [Ref. 7]. It produces the trialperiods available during a given year for each 
of the different inspections. 

5 . Vpmonthsearch module 

Within this module the Stage II search is conducted. The module begins by 
finding the first_pick_months2 for each event that should be scheduled during the year. 
These assignments form the initial schedule which is passed to a nopath search (see section 
II. B) which finds the schedule with the least number of conflicts. The total cost of a 
schedule depends on the number of conflicts it contains and the the amount you must move 
events from their first_pick_month in order to deconflict it with other events. The table in 
Figure 4.4 shows the cost of moving an event out of its first_pick_month. 



'The daynumber is the integer representation of a date, equal to the number of days 
that have occurred between 1 January 1600 and the date being represented. 

^For each inspection and squadron a first_pick_month can be calculated by using the 
table shown in Figure 4.2. 
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(First pick month - Event month) 


Cost 


0 


0 


1 


1 


2 


2 


3 


3 


-1 


0.5 


-2 


1.5 


-3 


2.5 



Figure 4.4 Cost to Deviate from the First_pick_month 

6. Vpfirstpick module 

This module is called by the vpmonthsearch module to determine which 
events need to be scheduled during the given year and which month is the preferred or 
first_pick_month for those events. The first_pick_months are computed using the 
information in Figure 4.2. 

7. Vpfinalsearch module 

The final schedule is generated in this module using the ready-alert schedule 
from Stage I and the month schedule from Stage n. The ready-alen schedule is input as the 
starting state of a modified hill-climbing search. The search always selects the 
chronologically earliest unscheduled event from the month schedule. The trialperiods are 
sequentially tried as possibilities for that selected event For each, the cost of the schedule 
including this new event is computed. The cost is then compared with the prior cost 
computed for a schedule with the same event using the last (an earlier) trialperiod. If the 
new cost is less than the prior cost, then the new schedule is added to the agenda and the 
subsequent trialperiod is check for the same event. 

The process for selecting the trialperiod for a particular event is concluded when 
there are no more trialperiods to test or the new cost is greater than the previous cost. The 
latter condition is due to the convexity of the cost function (see section E). This implies a 
modified hill-climbing search significantly reduces the search time. The final schedule is 
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complete when there are no events on the month schedule that have not been added to the 
final schedule. 

8. Vputilities module 

This module contains numerous miscellaneous predicates used for list 
manipulation. Most of this module was provided by Prof. Rowe [Ref. 4]. 

9. Vpschedwriter module 

This module contains the routines used to print a list of events in columnar form. 
It converts the daynumbers or monthnumbers into common abbreviated dates. Event codes 
are changed to the more commonly used abbreviations. 

10. Vpcalendar module 

This is an M-Prolog version of the calendar module written by LCDR Hutson 
[Ref. 7]. It was enhanced to provide the correct conversion for both date to daynumber 
and daynumber to date during all years including leap years. 

D. DATA STRUCTURES 

The majority of the data structures were unchanged from LCDR Hutson's prototype 
[Ref 7]. The structures use event codes extensively. The meanings of the event codes are 
given in Figure 4.5. Some of the structures involving dates use the integer value 
(daynumber) while others use a Prolog list format such as [1, Jan, 1986] for the date 
January 1, 1986. Because this thesis is additionally concerned with dates in a monthly 
increment, a unique integer value (monthnumber) is used. Whenever a data structure 
specifies the need for a date, it is expecting the list format. The daynumber or 
monthnumber will be given if required. 
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SYMBOL 


EVENT NAME 


ec 


Command Inspection 


en 


NATOPS Inspection 


cwc 


pre-MRCI/CTPI 


cwm 


MRQ 


ewp 


pre-NTPI 


ewn 


NTPI 


trla 


first ready-alert 


trlb 


second ready-alert 


trie 


third ready-alert 


dv 


ORE vulnerability period 


ds 


Post-deployment 

Safety-Standown 


dr 


Operational Deployment 



Figure 4 .5 Event Symbol Definitions 

Most of the structures that involve an event are facts in the program database. These 
facts have a predicate name defining what type of event it is and either three or four 
arguments. The first argument is the squadron. The second argument is the symbol for the 
inspection or event. The third and fourth arguments are daynumbers or dates. An example 
is: 

priorevent(vpl9,tr la, 140963, 140994). 

This is a fact that occurred prior to the start of the period being scheduled. The 
squadron,VP-19, had its first ready- alert starting on the date associated with the daynumber 
140963 and ending on the date associated with daynumber 140994. 

The following are similar structures that were carried over from LCDR Hutson’s 
prototype [Ref. 7]: 

prerequisite(<squadron>, <event code>, <start daynumber>, <finish 
daynumber>) 

priorevent(<squadron>,<event code>, <start daynumber>, <finish 
daynumber>) 
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earmark(<squadron>,<event code>, <date>) 

triaIperiod(<event code>, <start daynumber>, <finish daynumber>) 

readyevent(<squadron>, <event code>, <start daynumber>, <finish 
daynumber>) 

The following new structures were created for this thesis: 

ready_month(<squadron>, <monthnumber>) 

ready _haIf_month(<squadron>, <monthnumber>) 

prioreventdate(<squadron>,<event code>, <start date>, <finish 
date>) 

prerequisitedate(<squadron>,<event code>, <start date>, <finish 
date>) 

During stage HI an indexing scheme is used in the data structures for the search. Each 
state or list of events that make a schedule is given a unique integer value. Rather than 
passing the list of events from rule to rule during the search, only the index is passed. The 
indexing is used to associate the squadrons costs and the team events costs to the particular 
state. 

E. COST FUNCTIONS 

In this thesis three cost functions were developed. The optimum interval between a 
pre-inspection and the actual inspection is three weeks, not one month [Ref. 10]. It is also 
less critical for an inspection team to be scheduled every thirty days than it is for a 
squadron. The three cost functions, therefore are broken into the cases for: 

(a) squadron related-events cost 

(b) squadron unrelated-events cost 

(c) team cost. 

Prof. Rowe assisted in the development of the polynomial functions used in the three 
cost functions. Each has a single minimum value of 1.0. The major differences among the 
functions are the values at which the minimum occurs and the rate of increase for delay 
periods greater than where the minimum occurs. In each case, the cost of a delay that is C 
less than the optimum value is greater than the cost for a delay amount C greater than the 
optimum value. The squadron cost for delays greater than 180 days is made zero because 
deployments are normally six months in duration. There should not be a cost associated 
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with the delay measured between the last event preceding a deployment and the first event 
following it 

The squadron related-events cost formulas given in Figure 4.6 were developed to 
have a minimum cost occur at a delay of twenty-one days, a cost value of one hundred at a 
delay of zero days, and a cost of ten at a delay of forty-two days. 



Delay (D) 


Cost Formula 


<21 


Cost = 100 - 243 * (D/21) -t-189 * (D/21)^2 - 45 * (D/21)^3 


>=21 


Cost = 10 - 6/7 ♦ D 1/49 * D^^2 


>180 


<2ost = 0 



Figure 4.6 Squadron Related-events Cost Formulas 



The squadron unrelated-events cost formulas given in Figure 4.7 were developed to 
have a minimum cost occur at a delay of thirty days, a cost value of one hundred at a delay 
of zero days, and a cost of ten at a delay of sixty days. 



Delay (D) 


Cost Formula 


<30 


Cost = 100 - 243 * (D/30) -H 89 * (D/30)^2 - 45 * (D/30)^3 


>= 30 


Cost = 10 - 0.6 * D -h 0.01 * D^2 


>180 


Cost = 0 



Figure 4.7 Squadron Unrelated-events Cost Formulas 
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The team-event cost formulas, given in Figure 4.8, were developed to have a 
minimum cost occur at a delay of thirty days, a cost value of one hundred at a delay of zero 
days, and a cost of ten at a delay of sixty days with small increases in cost thereafter. 



1 Delay (D) 


Cost Formula | 


<51 


Cost = 100 - 247.25 * (D/30) + 197.5 * (D/30) ^^2 - 49.25 ♦ (D/30)^3 


V 

II 


Cost = 8.52 + l/(50/D)'^2 



Figure 4.8 Team-events Cost Formulas 



Each of the three cost have an identical evaluation function, the number of unscheduled 
events, which is used to determine when the search has reached its goal. 



V. PROGRAM RESULTS 



A . TEST DATA 

The data collected and reponed in [Ref. 7] was used for comparing the results of 
LCDR Hutson's program [Ref. 7], the manual schedule, and this program. This data was 
used to create the CPW-10 Training schedule containing upto six events for each of the 
seven squadrons during fiscal year 1986. In order to more thoroughly test this program, 
additional data was collected from the CPW-10 Training office personnel [Ref. 8,9,10], 
covering the fiscal year 1989. A working version of LCDR Hutson's prototype was not 
available to allow further comparisons using the new data. 

B . STORAGE REQUIREMENTS 

When all the program was consolidated into a single binary module that runs using the 
M-Prolog interpreter, it required 124928 bytes of storage. The consolidated compiled 
program program required 167936 bytes of storage. Depending on the year being 
scheduled, the main stack size varied from 3496 using 1986 data to only 2827 using 1989 
data. Likewise the statement table varied from 74967 to 63340, using 1986 and 1989 data 
respectively. 

C . STAGE I TIMES 

The cpu time required to run Stage I of the program is dependent upon the amount of 
information that is preloaded into the datafile. When the user knows the ready-alert 
schedule, the earmark dates, and the priorevent dates, and the trialperiod information has all 
been computed from prior runs, then Stage I is a matter of the program reading the 
information from the datafile and asserting it into the program database as Prolog facts, 
plus adding readymonth facts. When done this way. Stage I required approximately 24 to 
28 cpu seconds. 

If the datafile contains the minimal information of only the priorevents and the 
deployment-related dates, then Stage 1 required 140 to 182 cpu seconds to complete. The 
process of computing the trialperiods for the schedule year, asserting them as facts in the 
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program database and writing them to the database file required an average of 0.165 qju 
seconds per trialperiod. The time required to compute the earmark dates, assert them as 
facts in the database, and write them to the database file was approximately 2 to 3 cpu 
seconds. For the computer to calculate the earmark dates, the datafile must contain all the 
priorevents completed, not just those completed since the squadrons’ last deployment. 

The final step of Stage I, the search for the ready-alert schedule varied a great deal 
depending on the year. The average time for 1986 was 6 cpu seconds, and for 1989, 27 
cpu seconds. 

The diagram in Figure 5.1 shows the total times required for Stage I depending on the 
datafile content The time required to produce a schedule varies depending on the year and 
the number of events to be scheduled. Every fiscal year will not have the same number of 
trialperiods available due to the placement of holidays which must be scheduled around. 
Depending on the deployment cycles, the number of inspections required during different 
fiscal years will also vary. 
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Stage I Times 



Priorevents 

Known? 


Deployment 

Data 

Known? 


Earmark 

Dates 

Known? 


Trialperiods 

Known? 


Ready 

Alerts 

Assigned? 


CPU Time 
1986 1989 


YES 


YES 


YES 


YES 


YES 


24.08 


27.18 


YES 


YES 


YES 


YES 


NO 


27.74 


51.28 


YES 


YES 


YES 


NO 


NO 


143.74 


171.66 


YES 


YES 


NO 


NO 


NO 


139.74 


181.74 


YES - indicates the information was pre-loaded into the datafile 
time • is in cpu seconds 



Figure 5.1 Stage I Times 



D. STAGE II TIMES 

The times for Stage II were dependent on the number of conflicts existing in the initial 
schedule made from the first_pick_month. We also show the number of conflicts that 
could not be resolved by attempting to reschedule conflicting events within three months 
either side of their first_pick_month. Below is a diagram showing the times for Stage II 
for different schedule years. 
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Stage n Times 



Fiscal 

Year 


Events 
to be 

Scheduled 


Initial 

Conflicts 


Unresolved 

Conflicts 


Stage n 
Time 


Average 
Time / Event 


1986 


31 


6 


0 


220.0 


7.10 


1989 


22 


6 


0 


48.0 


2.18 


time - is in cpu seconds 



Figure 5.2 Stage II Times 



E. STAGE III TIMES 

The final search (Stage III) was the largest consumer of time. Two techniques 
discovered useful to reduce the time for Stage HI were indexing the cost and determining 
when the minimum cost was reached. When the scheduler program was run with Stage HI 
doing a normal hill-climbing search, the time for Stage HI was 1408 cpu seconds for the 
1986 schedule and 712 cpu seconds for the 1989 schedule. 

Finding the minimum cost for adding a new successor was possible because the 
trialperiods for events being added were generated sequentially beginning at the first period 
of the month, and because the events were added to the schedule beginning with those in 
the schedule-start-month chronologically progressing through the year. Since all cost 
functions used are convex, the minimum cost is when the total cost is no longer decreasing. 
When the hill-climbing search was so modified, the Stage in time was reduced to 840 cpu 
seconds for the 1986 and to 493 cpu seconds for the 1989 schedules. 

Using a hill-climbing search, each time a new successor is added to the current 
schedule, the cost of the new schedule must be found. The function to compute the cost of 
a schedule is done in two parts, the squadron cost and the inspection team cost, as 
explained in Hutson's thesis [Ref. 7]. Without indexing all the individual squadron-costs 
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and all the team-costs are recomputed for each new schedule. With indexing only the 
squadron-cost for the new event's squadron and the team-cost of the insp>ection team 
associated with the new event is recomputed. The remaining costs, referenced by indexes, 
are brought forward from the previous schedule and must only be added to arrive at the 
new total cost. With the costs indexed, so that only the new cost for the specific squadron 
and the new cost for the specific inspection being added to the schedule were computed as 
each new successor was added, the time for Stage III was further reduced to 308 cpu 
seconds for 1986 and to 196 cpu seconds for 1989. 



FY 


Time 

Using 

Original 

Search 


Time 
Using 
Min Cost 
Search 


Reduction 


Time 
Using 
Min Cost 
& Indexing 


Reduction 


1986 


1408 


840 


40% 


308 


78% 


1989 


712 


494 


31% 


196 


72% 



Figure 5.3 Summary of Stage III Time Improvements 



F. SCHEDULE GENERAL QUALITY 

Though the schedules produced using this program have not achieved the absolute 
optimized results, the trade-off of reduced computation time for optimization is more than 
favorable. The average number of days between events for a squadron for the 1986 
schedule is 21.85 days. The average number of days between events for an inspection 
team is 61.32. Five days is the smallest delay between two consecutive events for a single 
squadron. Three days is the smallest delay between two consecutive events for an 
inspection team. The schedules for both 1986 and 1989 are reasonable. 

G . IMPROVEMENTS MADE OVER LCDR HUTSON’S PROGRAM 

The objective of this thesis's approach to the scheduling problem was to reduce the 
search space to enable the searches for the optimum schedule to be completed in a shorter 
period of time on a less capable computer system. Comparing the total of 22534 cpu 
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seconds required to produce the 1986 schedule using LCDR Hutson's program and only 
555 cpu seconds using this thesis's program, it is obvious we did achieve the objective. 
The idea of starting with first_pick_months in Stage II came from studying the manual 
algorithm and prior training schedules that were developed using it. Prior schedules 
showed there is a high correlation to the order of the events for a squadron and its 
deployment cycle. By rescheduling events in conflict, the result of Stage II is a schedule 
with a better spread of the events. 

The search in Stage m is a hill-climbing search and is the principle reason for the 
overall speed increase over the Hutson prototype. Since the ready-alert schedule is the start 
state for this search, the decision of where a new event will best fit into the schedule will 
take into consideration the prior-events and any ready-alert for the same squadron. This 
causes the program to position events closer to the center of a month if the squadron has 
ready-alerts the month prior and the month following. 

The interface module provides improvements to LCDR Hutson’s program by allowing 
flexibility in the initial database set-up. The user can have the computer determine the 
ready-alerts or manually input the schedule. Once the program has run on a given schedule 
year, the database file will contain trialperiods which can be read into the program during 
future runs on the same schedule year, avoiding the time-consuming process of 
recomputing these trialperiods. 

The information in the Database. pro file is self-explanatory and can be modified 
direcdy by anyone familiar with using a text editor program. Because the initial data is read 
in from the Database. pro file, making improvements to the user interface is easy. Any 
interface can be used that will produce the Database.pro file in the same format. An 
example would be to use a HyperCard* program to build the file. 



* "HyperCard" is a register trademark of Apple Computer, Incorporate, Cupertino, 
California. 
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VI. CONCLUSIONS 



This thesis has demonstrated that a microcomputer does have the f>ower to perform the 
computations necessary to produce a schedule much quicker than can be done by hand. 
The schedule produced using this thesis's program is also more optimal than the manual 
schedule. It was not quite able to achieve the same degree of optimization achieved by the 
Hutson prototype, but was much faster. The degree of optimization achieved is illustrated 
in Figure 6.1, which shows the total costs calculated using the same cost function on the 
1986 schedules produced using the manual method, the Hutson prototype, and this thesis’s 
method. 



Scheduling Method 


Total Cost Calculated 


Manual 


831.6 


Hutson’s Prototype 


596.7 


This Program 


675.7 



Figure 6.1 Total Cost for 1986 Schedule 



This thesis also shows the significant time savings of indexing the cost in each state of 
the hill-climbing search over computing all the cost each time a new successor is found. 
But if simpler cost functions are used this technique might not result in a significant savings 
of time. 

This program is ready for use at CPW-10, once the code is converted to run on IBM- 
compatible computers. Changing the squadron names that have been hardcoded into the 
program is all that is necessary to make the program adaptable for the other three Patrol 
Wings. 

The user interface with this program can use a great deal of improvement. Any 
interface that provides a way of updating the database file could be used. An interface that 
could quickly and easily change the database file would greatly enhance this program. The 
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results of the program are currently hardcoded to be written to the file SCHEDULE.pro. 
An interface that allows the user to change the output file would also be helpful. 

This thesis did not research the cost function used in the Stage III search. Thirty days 
between events may not actually be the ideal. This is an area for further thesis work. 
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APPENDIX A - PROGRAM SOURCE CODE 



VPSCHEDULER MODULE 
This is the module that initiates the scheduling program. 

module main. 

import ( go /O). 

/*$eject*/ 

body. 

go. 

endmod /* main */ . 
module vpscheduler. 

export ( go /O, successor_counter /O, give_count /2, processtime /2, display_statistics /O). 

import ( generate_first_pick / 0,generate_final_schedule / 3, search 1 / 1, ready_month /2, 
search2 /I , union / 3, append /3, create_datafile / 0, read_datafile / 0, 
convert_date_data / 0, complete_database / 1, nopathsearch/ 2, open / 2, tell / 2, 
told / 1, database_conversion /O, get_trialperiods /O, sortevent /2, depthsearch /2, 
prettyprint /I, myname /2, stars /0,state / 2, daynumber_to_date /2, yearend /I, 
squadronlist /I, eventprinter / 1, countl /I ,count2 /2 ,count3 /I). 

global (status, trialperiod, prerequisite, event,search 1 , 
jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
monday,tuesday,wednesday,thursday,friday,saturday,sunday,weekend, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vp 19,\T)40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

dynamic(other_process_time/l ). 
dynamic(sub_successorcount/l). 
dynamic(total_successorcount/l ). 
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start_time, 

display_statistics, 

init_dynamics, 

crcate_datafile, 

read_datafile, 

convert_date_data, 

processtimeC'converting the datafile''^. 

complete_database( Answer 1 ), 

processtimeC'compledng the database (Stage 

writeC’The total time to complete Stage I is :"),nl, 

display_statistics, 

search2( Answer 2),!, 

even tprinter( Answer2) , 

processtime( "generating monthly schedule (Stage II)",_). 
generate_fmal_schedule(Answerl,Answer2,Answer3X 

sortevent(Answer3,Answer4), 
e ventpri nter( Answer4) , 

processtime( "generating final schedule (Stage ni)",_), 
writeCWRITING THE HNAL SCHEDULE TO THE FILE 
$"SCHEDULE.pro$"..."), nl, 
open(l ."SCHEDULE.pro"), 
tell( 1 ."SCHEDULE.pro"), 

writeC'THE FOLLOWING IS THE COMPUTED SCHEDULE: "),nl,nl, 

eventprinter(Answer4), 

told(l), 

display_stati sties, 

writeC'The Scheduler is now FINISHED. ..").nl, 



go:- 

writeC’UNABLE TO DETERMIN'D SCHEDULE. VERIFY DATABASE INPUT 
SAND TRY AGAIN."), nl,!. 

/* change system date to common format. 47 is 7 ; 48 is 'O' . */ 

convert_date(SystemDateT)ate):- 

myname(SystemDate,LIST), 

LIST = [A,B,C,D,E,F], 
myname(Date,[A,B,47,C,D,47,E,F]). 

convert_date(SystemDateT)ate):- 
myname(S ystemDate,LI ST), 

LIST = [B,C,D,E,F], 
myname(Date,[48,B,47,C,D,47,E,F]). 

/* change system time to common format. 58 is ; 48 is 'O'. */ 

convert_time(SystemTime,Time):- 

myname(SystemTime,LIST), 

LIST = [A,B,C,D,E,F], 
myname(Time,[A,B,58,C,D,58,E,F]). 
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convert_time(SystemTime,Tiine):- 

myname(SystemTime,LIS'0, 

LIST = [B,C,D,E,F], 
myname(Time,[48,B,58,C,D,58,E,F]). 

start_tiine:- 

state(system_date,S YSDate), 
convert_date(S Y S Date, DATE), 
write(D ATE), write_spaces( 1 ) , 
state(system_time,SYSTinie), 
convert_lime(SYSTime,TIME), 
write(nME),nl,nl, 

writeC’THE SCHEDULER IS PROCESSING nl,nl,!. 

give_count(Process,Time):- 

sub_successorcount(SSK), 

del_all_statements(sub_successorcount/l), 

add_statement(sub_successorcount(0)), 

write("==> Successors generated during "),write(Process),write(":"), 
write(SSK),nl, 

Average is Time/S SK, 

write("==> Average process time for successors in "), 
write(Process),write(":"),write(Average),write('' cpu seconds. ")»nl,!. 

final_count;- 

total_successorcount(TSK), 

state(cpu_time,X), 

Overall is X/(TSK*1000), 

writeC'Total successors = "),write(TSK), 

writeC'and overall Average Processing Time = "),write(Overall), 

write(" cpu seconds. "),nl,!. 

successor_counter:- 

sub_successorcount(SSK), 
total_successorcount(TSKX 
del_statement(sub_successorcount(SSK)), 
del_statement(total_successorcount(TSK)X 
SSK2 is SSK + 1, 

TSK2is TSK+ 1, 

add_statement(sub_successorcount(SSK2)), 
add_statement(total_successorcount(TS K2)) , ! . 

processtime(Process,FT):- 

state(cpu_time,X), 

other_process_time(OPT), 

del_statement(other_process_time(OPT)), 

FT is (X - OPT)/1000, 

writeC’The process for "),WTite(Process), 

write(" completed in; "),write(IT),write(" cpu seconds. "),nl, 

add_statement(other_process_timepC)),!. 
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di splay_statistics : - 

St3XS stdxs 

write’_tab(18),write("SYSTEM STATUS"), nl, 
state(cpu_time,X), 

writeC'cpu time = "),write(X),write(" msec"),nl, 

state(main_stack,[U,C] ) , 

writeC'main stack used = "),write(U),nl, 

state(s tatement_table, [U 1 ,C 1 ] ), 

write( "statement table used = "),write(Ul),nl, 



init_dynamics 

aidd_statement(other_prc>cess_time(0)), 
add_statement(sub_successorcount(0)), 
add_s tatement(total_succes sorcount(O)) , 
add_statement(countl (0)), 
add_statement(count2(0)), 
add_statement(count3 (0)). 

endmod /* module vpscheduler */ . 
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VPINTERFACE MODULE 

This module reads the database file DATABASE.pro and asserts the appropriate facts 
into the program database. 



module vpinterface . 

export (yearbegindate / 1, yearenddate / 1, create_datafile / 0, read_datafile / 0, 
convert_date_data / 0, complete_database / 1, earmark / 3, eventcode / 2, 
eventnames / 1, squadronlist / 1, priorevent / 4, prerequisite / 4, earmark / 3, 
eventcode / 2, teamevents / 1, yearbegin / 1, yearend / 1). 

import (member / 2, myname / 2, search 1 / 1, datetodaynumber / 2, 

daynumber_to_date / 2, trialperiod / 3, display_statistics / 0, month_to_number /3, 
number_to_month /3,generate_trialperiods /O, build_ready_months / 1, 
readyevent / 4, build_readyevents / 1, eventprinter /I, open / 2, tell / 2, told / 1 ). 

global (readyevent, priorevent, prerequisite, earmark, trialperiod, 
status,prerequisite, yearbegindate, yearenddate,event, 
prioreventdate,prerequisit^te,readyeventdate, 
ntpi,pre_mrci,mrci,natops,command,ready_alert,pre_ntpi, 
jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
monday,tuesday,wednesday,thursday,friday,saturday,sunday,weekend, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50,y,n,quit). 

/*$eject*/ 

body. 

dynamic(yearbegindate/l ). 

dynamic(yearenddate/l ). 

dynamic(yearbegin/l X 

dynamic(yearend/l). 

dynamic(priorevent/4). 

dynamic(prerequisite/4). 

dynamic(earmark/3). 

dynamic(prioreventdate/4). 

dynamic(prerequisitedate/4). 

dynamic(readyeventdate/4). 

create_datafile 

nevs^age, 

datafileinfo, 

v.Tite("Has the file $"DATABASE.pro$" been updated? (Y/N)"),nl, 

get_answer(Ans),nl,nl. 

handle_answer(Ans,ReadySched),!. 

newpage nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl,nl. 
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datafileinfo 

write("THIS PROGRAM WILL READ INFORMATION FROM A DATA FILE 
$NAMED "), nl, 

writer$’'DATABASE.pro$" OR "),nl, 

writeCTT WILL ASK YOU TO TYPE-IN THE REQUIRED INFORMATION TO "), 
nl, writeC'BUILD A NEW DATA FILE NAMED $"DATABASE.pro$" nl, nl, 
writeCPLEASE NOTE: BUILDING A NEW DATA FILE WILL DESTROY THE "), 
nl, writeflNFORMATION IN THE OLD DATA FILE"),nl,nl,nl,nl,nl. 

handle_answer(ANS,ReadySched) 

affirm_answer(ANS),!. /* data file is current */ 

handle_answer(ANS,ReadySched) 

neg_answer(ANS), /* data file needs updated */ 

double_check, 

update_database_file, ! . 

double_check 

newpage, 

writeCCONTINUING WILL DESTROY THE CURRENT CONTENTS OF THE 
SFILE"), nl, 

write("$"DATABASE.pro$"....ARE YOU SURE THAT YOU WANT TO 
SCONTINUE ?"), 
write(" (Y/N) "), nl, nl, nl, 
get_answer(ANS), 
handle_double_check(ANS). 

handle_double_check(ANS) 

affirm_answer(ANS). 

handle_double_check(ANS) 

halt. 

update_database_file:- 

open(3,"DATABASE.pro"), 

update_scheduledates, 

update_priorevents, 

update_deployments, 

told(3). 

update_scheduledates 

writeC'Enter the schedule START date — (ex. 1 oct 1985)"),nl, 
get_date(YSD,YSM,YSY),nl,nl, 

writeC'Enter the schedule FINISH date -- (ex. 30 sep 1986)"), nl, 

get_date(YFD,YFM,YFY),nl,nl, 

tell(3,"DATABASE.pro"), 

write("yearbegindate(["),write(YSD), writer,"), 

write(YSM),write(","),write(YSY),write("])"),nl, 

write("yearenddate(["),wTite(YFD),write(","), 

write(YFM),write(","),\vTite(YFY),write("])"),nl, 

told(3). 
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update_priore vents 

priorevent_header, 
member(SQ,[9,19,40,46,47,48,50]), 
writeC'Squadron: VP*"),write(SQ),nl,nl, 
member(Event,[trla,en,ec,ewp,ewn,ewc,ewm]), 

add_priorevents(Event,SQ,3/'DATABASE.pro"), /* 3 is output channel */ 
fail. 

update_priorevents !. 
priorevent_header 

writeC’Enter the most recent finish dates for each of the"), nl, 
writeC’eventsAnspections conducted for each squadron."), nl,nl, 
dashes. 

add_priorevents(EVT,SQ.CH,OUTFILENAME) 
switch(EVT,EVTNAME), 
writeC’Last "), 
write(EVTNAME), 

writer END DATE: (31 jul 1986)"), nl, 
get_date(DAY2,M02,YR2),nl, 

DAY 1 is DA Y2 - 1 , /* the start date of the priorevents is not important */ 

write_data("prioreventdate",CH,OUrnLENAME,SQ,EVT,DAYl,M02,YR2,DAY2, 
M02,YR2),!. 

switch(trla,"Ready Alert"). 

switch(en,"NATOPS"). 

switch(ec,"Command Inspection"). 

switch(ewp,"pre-NTPI"). 

switch(ewn,"NTPl"). 

switch(ewc,"PRE_MRCI"). 

switch(ewm,"MRCI"). 

update_deployments 

deploymentheader, 

member(SQ,[9,19,40,46,47,48,50]), 

get_ore_dates("prerequisitedate",SQ,3,"DATABASE.pro"), 

get_ssd_dates("prerequisitedate",SQ,3,"DATABASE.pro"), 

get_deployment_dates("prerequisitedate",SQ,3,"DATABASE.pro"), 

fail. 

update_deployments !. 

get_ore_dates(PRED,SQ,CH,OUTFILENAME) 
writeC'Squadron: VP-"),write(SQ),nl,nl, 
writeC'ORE PERIOD START DATE: (ex. 01 jul 1986)"),nl, 
get_date(DAYl,M01,YRl),nl, 
wTiteC'ORE PERIOD END DATE: (30 sep 1986)"),ni, 
get_date(DAY2,M02,YR2),nl, 

write_data(PRED,CH,0UTFILENAME,SQ,dvl,DAYl,M0l,YRl,DAY2,M02, 
YR2), !. 
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get_ssd_dates(PRED,SQ,CH,OUTnLENAME) 
writeC'Squadron: VP-"),write(SQ),nl,nl, 

writeC'Enter information for the SAFETY STAND-DOWN period PRIOR to"),nl, 
writeC’the above ORE PERIOD"), nl,nl, 

writeC'SAFETY STAND-DOWN PERIOD START DATE: (ex. 1 1 dec 1985)"), nl, 
get_date(DA Y 1 ,MO 1 , YR 1 ),nl, 

writeC’SAFETY STAND-DOWN PERIOD END DATE: (ex. 10 jan 1986)"), nl, 
get_date(DAY2,M02,YR2), nl, 

write_data(PRED,CH,OUTFILENAME,SQ,dsO,D A Y 1 ,MO 1 ,YR 1 ,DA Y2,M02, 
YR2),!. 

get_deployment_dates(PRED,SQ,CH,OUTFILENAME) :- 
writeC’S quadron : VP-"),write(S (2),nl ,nl, 

writeC'Enter information for the DEPLOYMENT period FOLLOWING "),nl, 
writeC'the above ORE PERIOD"),nl,nl, 

writeC’DEPLOYMENT PERIOD START DATE: (ex. 16 nov 1986)"),nl, 
get_date(DA Y 1 ,MO 1 , YR 1 ),nl, 

writeC’DEPLOYMENT PERIOD END DATE: (ex. 05 may 1987)’’),nl, 
get_date(DAY2,M02,YR2), nl, 

write_data(PRED,CH,OUTFILENAME,SQ,drl ,D A Y 1 ,MOl ,YR 1 ,DA Y2,M02, 
YR2), 

compute_ssd2(SQ,DAY2,M02,YR2,PRED,CH,0UTFILENAME),!. 

/* Adds the safety standdown following the deployment */ 

compute_ssd2(SQ,DAY,MO,YR,PRED,CH,OUTFILENAME) :- 
datetodaynumber([DAY,MO,YR],DeploymentFDN), 

SDN is DeploymentFDN + 1, 

FDN is SDN -i- 30, 

daynumber_to_date(S DN, [D A Y 1 ,MO 1 , YR 1 ] ), 
daynumber_to_date(FDN,[DAY2,M02,YR2]), 

write_data(PRED,CH,OUTnLENAME,SQ,ds 1 ,DAY 1 ,MO 1 ,YR 1 ,D A Y2,M02, 
YR2),!. 

rcad_datafile :- 
newpage, 

writeC’READING DATA FROM THE FILE $’’DATABASE.pro$" "),nl, 

set_channel(infile(2),name = "DATABASE.pro"), 

set_input(infile(2)), 

read_datafile2, 

fail. 

read_datafile :- 

close_input(infile(2)). 

read_datafile2 :- 

read_token(file end),nl,nl, + . 
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read_datafile2 

read(X), 

writer."), 

add_statement(X), 

read_datafile2. 

convert_date_data 

prioreventdate(S Q,E,S ,F), 
datetodaynumber(S ,S DN), 
datetodaynumber(F,FDN), 
add_statement(priorevent(SQ,E,SDN,FDN)), 
fail. 

convert_date_data 

prerequisitedate(SQ,E,S,F), 
datetodaynumber(S ,S DN), 
datetodaynumber(F,FD>0, 
add_statement(prerequisite(SQ,E,SDN,FDN)), 
fail. 

convert_date_data 

readyeventdate(SQ,E,S,F), 
datetodaynumber(S ,S DN), 
datetodaynumber(F,FDN), 
add_statement(readyevent(SQ,E,SDN,FDN)), 
fail. 

convert_daie_data 

del_all_stateme nt s(prioreventdate/4) , 

del_all_statements(prerequisitedate/4), 

del_all_statements(readyeventdate/4). 

complete_database(READYLIST) 

year_to_schedule, 

writeC’Updating the earmark events.. .."),nl, 

display_statistics, 

update_eannarks, 

writeC'Finished updating the earmark events ...”),nl, 
display_statistics, 

delete_old_priorevents, /* deletes the priorevents before dsO */ 
writeC’Updating the trialperiod events.. .."),nl, 
display_statistics, 
update_trialperiods, 

writeC'Finished updating the trialperiod events ..."),nl, 
display_stati sties, 

writeC'Updating the readyalen events.. .."),nl, 
display_statistics. 
update_readyalerts(READYLIST), 
writeC'Finished updating the readyalen events ..."),nl, 
display_statistics. 
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update_readyalerts(READYLIST) 

readyevent(SQ,EVT,SDN,FDN), /* the readyevents were in datafile */ 
newpage, 

writefTHE READY ALERT SCHEDULE CONTAINED IN THE DATA FILE"),nl. 

writeflS NOW BEING READ INTO THE PROGRAM...."), nl,nl, 

make_readylist(D .READ YLIST), 

build_ready_months(READYLIST), 

writeC'THE READY ALEART SCHEDULE FOLLOWS:")4il, 

dashes.nl, 

eventprinter(READYLIST). 

update_rcadyalerts(READ YLIST) 
newpage, 

writeC'Do you want the computer to determine the Ready Alert "), 
write( "schedule ? (Y/N)"),nl,nl,nl,nl, 
get_an s wer( AN S ), 

process_ready_answer(ANS,READ YLIST), 
add_readyevents_to_datafile(RE AD YLIST). 

process_ready_answer(ANS,READ YLIST) 

affirm_answer(ANS), /* let the computer figure R/A sched */ 
search 1 (READ YLIST). 

process_ready_answer(ANS .READ YLIST) 

neg_answer(ANS), /* ask user for R/A sched */ 
get_readylist(READYLIST), 
build_readyevents(READ YLIST), 
build_ready_months(RE AD YLIST). 

get_readylist([]) 

get_squa^on(SQ), 

SQ = quit. 

get_readylist([event(SQ,EVT,SD,FD)IRList]) 
get_squadron(SQ), 
get_ready_daynumbers(SDN,FDN), 
get_event(EVT), 
get_readylist([RList]) . 

get_squadron(SQ) : - 

writeC'Enter the squadron - (ex. vp9) "),nl, 
write(" or type $"quit$" when finished. "),nl, 
read_record ( S Q) , 
valid_squadron(SQ). 

get_squadron(SQ):- 

read_record(SQ), 

write(SQ), 

writeC'is not valid input — try again"), 
get_squadron(SQ). 
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valid_squadron(vp9). 
valid_squadron(vp 19). 
valid_squadron(vp40). 
valid_squadron(vp46). 
valid_squadron (vp47 ). 
valid_squadron(vp48). 
valid_squadron (vp50). 
valid_squadron(quit). 

get_ready_daynumbers(SDN,FDN) 

writeC'Enter the START date -- (ex. 1 apr 1986)"),nl, 

get_date(D 1 ,M 1 , Y 1 ),nl, 

datetodaynumber(S DN,[D 1 ,M 1 ,Y 1 ] ), 

writeC'Enter the FINISH date — (ex. 30 apr 1986)"), nl, 

get_date(D2,M2,Y2),nl, 

datetcxiaynumber(FDN,[D2,M2,Y2]). 

get_event(EVT) 

writeC'Enter the number of Ready Alerts this will make for this"),nl, 

write(" ^uadron during this sch^ule year - "),nl, 

write("(ie. enter 1 for the first, 2 for the second, etc)."),nl, 

read_record(STR), 

convert(STR,string,NUM), 

valid_num(NUM), 

convert_num(NUM,EVT). 

get_event(EVT) 

read_record(STR), 

write(STR), 

write(" was not a valid entry - try again. "),nl, 
get_event(EVT). 

valid_num(l). 

valid_num(2). 

valid_num(3). 

convert_num( 1 ,cr 1 a). 
convert_num( 1 ,trl b). 
con vert_n um( 1 ,tr 1 c) . 

make_readylist(Ll,L2) 

readyevent(SQ,E,S,F), 

not(member(event(SQ,E,S,F),Ll)), 

make_readylist([event(SQ,E,S,F)ILl],L2). 

make_readylist(Ll,Ll) . 
add_readyevents_to_datafile([]) . 
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add_readyevents_to_datafile([event(SQ,E,SDN,FDN)IREADYLIST]) 
tell(3,"DATABASE.pro"), 
wriie("readyeventdate("),write(SQ), writer,"), 
write(E), write( 

daynumber_to_date(SDN,SD), 

daynumber_to_date(FDN,FD), 

write(SD),write(","),write(FD),write(")"), 

told(3), 

add_rcadyevents_to_datafile(READYLIST). 

update_earmarks 

earmark(SQ,EVT,FDN). t* the earmarks are current */ 

update_earmarks 

newpage, 

writefCOMPUTING THE EARMARK DATES FOR EACH 

SQUADRON...."),nl,nl,nl,nl, 

priorevent(SQ,EVT,SDN,FDN), 

daynumber_to_date(FDN,FD), 

compute_earmark(E VT,FD,[DA Y 1 ,MO 1 , YR 1 ] ), 

sqd_to_number(S Q,S QN), 

write_data(earmark,3,"D ATAB ASE.pro",SQN,EVT,DA Y 1 ,MO 1 , YR 1 ), 

add_statement(earmark(SQ,EVT,[DAY 1 ,MO 1 , YR 1 ])), 

fail. 

update_earmarks !. 

compute_earmark(Insp,[FD,FMO,FYR],[FD,EMO,EYR]) 
periodicity(lnsp, Period), 
month_to_number(FMO,FYR,MN), 

EMN is MN + Period, 
number_to_month(EMO,EYR,EMN),! . 

/* The periodicity is the number of months an inspection is good for. */ 

periodicity(ec,12). 
periodicity(en,12). 
periodicity(ewc,l 8). 
periodicity(ewm, 1 8). 
periodic ity(ewn, 12). 

/* remove the priorevents done before the last safety standdown */ 

delete_old_priorevents 

eventnames(EVTList), 

squadronlist(SQList), 

member(SQ,SQList), 

prerequisite(SQ,dsO,SDN,FDN), 

member(EVT,EVTList), 

priorevent(SQ,EVT,SDNl,FDNl), 

FDNl < SDN, 

del_statement(priorevent(SQ.EVT,SDN 1 ,FDN 1 )), 
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delete_old_priorevems 



t 



update_trialperiods 

trialperiod(EVT,SDN,FDN). /* the database is current */ 

update_trialperiods 

newpage, 

generate_trialperiods, 

store_in_datafile. 

store_in_datafile 

teU(3,"DATABASE.pro"), 
trialperiod (E VT, S ,F) , 

write("trialperiod("),write(EVT),write(","),write(S),write(","), 
write(F),write(")"), nl, 
fail. 

store_in_datafile 

told(3). 

write_data(PRED,CH,OUTFILENAME,SQ,EVT,D 1 ,M 1 ,Y 1 ,D2,M2,Y2) 
tell(CH,OUTFILENAME), 

write(PRED),write("(")» 

write("vp"),write(SQ),write(","), 
write(EVT), write(",["), 
write(Dl),write(","), 
write(Ml),write(","), 
write(Yl),write("],["), 
write(D2),write(","), 
write(M2),write(","), 
write(Y2), writer])"), 
told(CH), !. 

write_data(PRED,CH,OUrnLENAME,SQ,E VT,D AY 1 ,MO 1 , YR 1 ) : - 
tell(CH,OUTFILENAME), 
write(PRED),write("r), 
write("vp"),write(SQ), writer,"), 
write(EVT), write(",["), 
write(DAYl),write(","), 
write(M01),wTite(","), 
write(YRl), writer])"), 
told(CH),!. 

get_date(DAY,MO,YR) 
read_record(D ATE) , 
myname(DATE,DATELIST), 
convendate(DATELIST,DA Y,MO,YR),! . 
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convertdate([D 1 ,D2,SP,M 1 ,M2,M3,SP,Y 1 , Y2.Y3, Y4] ,D A Y.MO.YR) 
myname(DAYS,[Dl,D2]), 
con vert(D A Y S ,numter,D A Y) , 
myname(MO,[Ml,M2,M3]), 
validmon th (MO) , 
myname(YRS,[ Y 1 ,Y2, Y3.Y4]), 
con vert (YRS ,num^r, YR) , ! . 

convertdate([Dl,SP,MlM2.M3,SP,Yl,Y2,Y3,Y4],DAY,MO,YR) 
myname(DAYS,[Dl]), 
con vert(D A Y S ,numter,D A Y) , 
myname(MO,[M 1 M2.M3]), 
validmonth(MO), 
myname(YRS,[Yl,Y2,Y3,Y4]), 
con vert (YRS ,num^r, YR), ! . 

convertdate(DATELIST,DAY,MO,YR) 

write("RE-ENTER DATE CORRECTLY - (ex. 01 jan 1989)"), nl, 
get_date(DAY,MO,YR). 

get_month(X) 

read_record(X), 

validmonth(X). 

get_month(X) 

read_record(X), 
not validmonth(X), 

writeC'You MUST enter a 3 letter abbreviation (use lower case only)."), 

nl,write("try again -- "), nl, 

get_month(^). 

validmonth (jan). 
validmonth(feb). 
validmonth(mar). 
validmonth (apr). 
val idmonth (may ) . 
validmonth (jun). 
validmonth^ul). 
validmonth(aug). 
validmonth (sep). 
validmonth (oct). 
validmonth(nov). 
validmon th(dec). 

dashes 

write(" - "),nl,!. 



46 



deploymentheader 

writeC’Enter the deployment database for each squadron based upon"),nl, 
writeC'the ORE period that begins and/or ends during the schedule"), 
write(" year."),nl, 
dashes. 

get_answer(ANS) 

read_record( AN S ) , 
valid_answer(ANS) ,! . 

get_answer(ANS) 

writeC’That was not a valid answer to the question..."), 
writeC'please type either Y or N - "),nl, 
get_ans wer(ANS ) , ! . 

valid_answer(ANS) 

affmn_answer( ANS) . 

valid_answer(ANS) 

neg_answer(ANS). 

affirm_answer(ANS) 

make_char_list(ANS,[AIL]), 

convert(A,lower_case,A2), 

A2 = y. 

neg_answer(ANS) 

make_char_list(ANS,[AIL]), 

convert(A,lower_case,A2), 

A2 = n. 



/* The following was taken from LCDR Hutson's database module. */ 

/* The yearend number was increased to account for the extra months at the end of */ 
/* the year that the rescheduling may add in stage II (the month_scheduler ). */ 

year_to_schedule : - 
yearbegindate(X), 
yearenddate(Y), 
datetodaynumber(X,X2), 
datetodaynumber(Y,Y2), 
del_all_statements(yearbeginyi ), 
del_all_statements(yearend/l ), 
add_statement(yearbegin(X2),bottom), 

Y3 is Y2 + 90, 

add_statement(yearend( Y3) , bottom), ! . 
Squadronlist([vp9,vpl9,vp40,vp46,vp47,vp48,vp50]). 
eventnames([trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec]). 
teamevents([ewp,ewn,en,ewc,ewm,ec]). 
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eventcode(ewp,pre_ntpi). 
eventcode(ewn,ntpi). 
eventcode(ewc,pre_mrci). 
eventcode(ewm,mrci) . 
eventcode(en,natops) . 
eventcode(ec, command). 
eventcode(trl a^ady_alert). 
eventcode(trl b,ready_alert). 
eventcode(tr 1 C4«ady_alert) . 

sqd_to_number(vp9,9). 
sqd_to_number(vp 19,19). 
sqd_to_number(vp40,40) . 
sqd_to_number(vp46,46). 
sqd_to_number( vp47,47 ) . 
sqd_to_number(vp48,48). 
sqd_to_number(vp50,50) . 

endmod /* module vpinterface */ . 
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VPREADYSEARCH MODULE 

This module determines the ready-alert schedule if it is not contained in the file 
DATABASE.pro and the user wants the computer to compute the ready-alert schedule. 

/* The original code for this module was written by Dave Hutson in C-Prolog. It */ 
/* has b^n convened to M-Prolog. Capability to schedule 3 readies per squadron */ 
/* has been added. */ 

module vpreadysearch. 

export (searchl / 1 , readyevent/4, build_ready_months / l,build_readyevents /I, 
re^y_month/2, ready_half_month / 2 ). 

import (member /2, squadronlist /I, xbagof /3, union /3, max /2, processtime /2, 

give_count /2, successor_counter /O, daynumber_to_date /2, month_to_number /3, 
yearend /I, prettyprint /I, priorevent /4, trialperiod /3, prerequisite /4). 

global (status,trialperiod,prerequisite,priorevent,event,searchl , 
jan,feb,mar,apr,may,junjul,aug,sep,oct,nov,dec, 
monday.tuesday .Wednesday ,thursday,friday, Saturday, Sunday .weekend, 
tr 1 a ,tr 1 b,tr Ic .ewp.e wn ,en,e wc ,ewm,ec,d v 1 ,dr 1 ,ds 1 ,tr 1 ,dsO , 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

dynamic(totalreadies/l ). 
dynamic(readyevent/4). 
dynamic(ready_monthi/2) . 
dynamic(ready_half_month/2). 

/* searchl is the top level predicate to make ready assignments. */ 

search l(ReadyL):- 

nl,write(" Scheduling the Ready Alerts.. .."),nl, 
depthsearch([],ReadyL),!, 
writers E ARCH 1 RESULTS;"), nl, 
processtimeC'generating the Ready Alerts",Time), 
give_count(search 1 .Time), 
write("(Ready Alert Roster):"),nl, 
prettyprint(Ready L) , 
build_readyevents(ReadyL), 
build_ready_months(ReadyL), !. 

depthsearch(Start,Ans) :- 

depthsearch2(Start,[Start],[AnslStatelist]). 

depthsearch2(State,Statelist,Statelist) :- 
goalreachedl (State), !. 
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depthsearch2(State,Statelist,Ans) 
successorl (State, Newstate), 
not(member(Newstate,Statelist)), 
successor_counter, 

depthsearch2(Newstate,[NewstatelStatelist],Ans). 

/* successorl predicates are used in depthsearch to assign readies to squadrons. */ 

/♦ One of the next three successors assigns the first ready of the year . */ 

successorl (L,[event(Sq,trl a, S,F)IL]):- 
last_read y_of_previous_year(Sq2,S ) , 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 
preferred_assignment(Sq,S ,F). 

successorl (L,[event(Sq,trl a, S,F)IL]):- 
last_ready_of_previous_year(Sq2,S), 
readyF(S.F), 

pick_nextsquadron(Sq2,Sq), 

altemate_assignmentl(Sq,S,F). 

successorl(L,[event(Sq,trla,S,F)IL]):- 
last_ready_of_previou s_year(S q2, S) , 
readyF(S.F), 

pick_nextsquadron(Sq2,Sq), 

altemate_assignment2(Sq,S,F). 

successorl (L,[event(Sq, trla,S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq,tr 1 a,_,_),L)), 
preferred_assignment(Sq,S,F). 

successorl (L,[event(Sq, trla,S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq,trla,_,_),L)), 
altemate_assignment3(Sq,S,F). 

successorl (L,[event(Sq, trla,S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq,tr 1 a,_,_),L)), 
altemate_assignment 1 (Sq,S,F). 

successorl(L,[event(Sq,trla,S,F)IL]);- 

readySF(L,Sq2,S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla,_,_),L)), 

altemate_assignment4(Sq,S,F). 
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successorl(L,[event(Sq,trla,S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq,trla,_,_).L)), 
altemate_assignment2(S q,S ,F) . 

successorl(L,[event(Sq,trlb,S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
member(event(Sq,trla,S2,F2),L), 
not(member(event(S q,tr 1 b^,_) ,L)), 

S > F2 + 28, 

preferred_assignment(Sq,S ,F). 

successorl(L,[event(Sq,trlb,S,F)IL]):- 

readySF(L,Sq2,S,F), 

pick_nextsquadron(Sq2,Sq), 

member(event(Sq,trla,S2,F2),L), 

not(member(event(Sq,trlb,_,_),L)), 

S > F2 + 28, 

altemate_assignment2(Sq,S,F). 

successorl(L,[event(Sq,trlc,S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
member(event(Sq,trl b,S2,F2),L), 
not(member(event(Sq,trlc,_,_),L)), 

S > F2 + 28, 

preferred_assignment(Sq,S,F). 

successorl(L,[event(Sq,trlc,S,F)IL]):- 
readySF(L,Sq2,S,F), 
pick_nextsquadron(Sq2,Sq), 
member(event(Sq,trl b,S2,F2),L), 
not(member(event(Sq,trlc,_,_),L)), 

S > F2 + 28, 

altemaie_assignment2(Sq,S,F). 

successorl([event(Sq2,E,Sl,Fl)IL],[event(Sq,trla,S,F),event(Sq2,E,Sl,F2)IL]) 
not (Sq = Sq2), 
split_stan(S 1 ,F1 ,S ,F2), 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla,_,_),L)), 

preferred_assignment(Sq,S,F). 
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successorl([event(Sq2,E.Sl,Fl)IL],[event(Sq,trla,S,F),event(Sq2,E,Sl,F2)IL]):- 
not (Sq = Sqi), 
split_start(S 1 ,F 1 ,S ,F2), 
readyF(S,FO, 

pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq,trla,_,_).L)), 
al temate_a ssignment3 (Sq,S ,F). 

successorl([event(Sq2,E,Sl,Fl)IL],[event(Sq,trla,S,F),event(Sq2,E.Sl,F2)IL]):- 
not (Sq = Sq2), 
split_start(S 1 j^l,S,F2), 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 
not(member(event(Sq,trla,_,_).L)), 
altemate_assignment 1 (Sq,S,F). 

successorl([event(Sq2,E,Sl,Fl)IL],[event(Sq,trla,S,F),event(Sq2,E.Sl,F2)IL]):- 
not (Sq = Sq2), 
split_start(S 1 ,F 1 ,S ,F2), 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla,_,_),L)), 

altemate_assignment4(Sq,S,F). 

successorl([event(Sq2,E,Sl,Fl)IL],[event(Sq,trla,S,F),event(Sq2,E,Sl,F2)IL]):- 
not (Sq = Sq2), 
split_start(S 1 ,F1 ,S,F2), 
ready F(S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trla,_,_),L)), 

altemate_assignment2(Sq,S,F). 

/* The next two rules assign a squadron’s second ready alert if needed. */ 

successorl([event(Sq2,E,Sl,Fl)IL],[event(Sq,trlb,S,F),event(Sq2,E,Sl,F2)IL]):- 
not (Sq = Sq2), 
split_stan(S 1 ,F1 ,S ,F2), 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trlb,_,_),L)), 

preferred_assignment(Sq,S,F). 

successorl([event(Sq2,E,Sl,Fl)IL],[event(Sq,trlb,S,F),event(Sq2,E,Sl,F2)IL]):- 
not (Sq = Sq2), 
split_start(Sl,Fl,S,F2), 
readyF(S,F), 

pick_nextsquadron(Sq2,Sq), 

not(member(event(Sq,trlb,_,_).L)), 

altemate_assignment2(Sq,S,F). 



52 



pick_nextsquadron(LastReady Squadron, NextReady Squadron) 
squadronlist(SL), 

member( NextReady S quadron ,S L) , 
not(LastkeadySquiiron = NextReadySquadron). 

/* Used by first three successor 1 rules. */ 

last_ready_of_previous_year(LastReadySquadron,NewStart):- 
xbagof(RFl ,readyfinishes 1 (trla.RFl ),List 1 ), 
xbagof(RF2,readyfmishesl(trlb,RF2),List2), 
union(Listl,List2,List3), 
max(List3,MF), 

(priorevent (Las tReady Squadron ,tr 1 a,_,MF) ; 
priorevent(LastReadySquadron,trl b,_,MF)) , 

NewStart is MF + 1, !. 

readyfinishes 1 (ReadyName.ReadyFinish) 

priorevent(Sq,ReadyName,ReadyStart,ReadyFinish). 

readySF(ListofReadies,LastReadySquadron, NewStart, NewFinish):- 
last_ready(ListofReadies,LastReadySquadron,NewStart), 
readyF(NewStart,NewFinish). 

last_ready([event(LastReadySquadron,ReadyName,S,F)IListofReadies], 

LastReady Squadron ,NewS tart) 

NewStart is F + l,daynumber_to_date(NewStart,X),!. 

/* NewStart is first of month. */ 

readyF(NewStart,NewFinish):- 

trialperiod(trl , NewStart, NewFinish),! . 

/* NewStart is middle of month. */ 

readyF(NewS tart,Ne wFinish) ; - 
trialperiod(trl,S, NewFinish), 

S > NewStan, 

NewFinish < NewStan + 61,!. 

/* Ready is no earlier than the third full month after deployment and */ 

/* ready is not during ORE vumerability period. */ 

preferred_assignment(Sq,S,F):- 

prerequisite(Sq,dsO,S2,F2), 

S >= F2 + 58, 
prerequisite(Sq,dvl,S3,F3), 

F<S3,!. 
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/* Ready is at least one month after post deployment safety standdown, but before */ 

/* ORE vumerability p>eriod. */ 

altemate_assignmentl(Sq,S,F):- 

prerequisite(Sq,dsO,S2,F2), 

S >= F2 + 28, 
prerequisite(Sq,dv 1 ,S3,F3), 

F<S3,!. 

/* Ready is no earlier than third full month after deployment and */ 

f* ready can be during first month of ORE vumerability period. */ 

altemate_assignment2(Sq,S,F):- 

prerequisite(Sq,dsO,S2,F2), 

S >= F2 + 58, 
prerequisite(Sq,dvl,S3,F3), 

F<F3-58,!. 

f* Ready is no earlier than third full month after deployment. */ 

altemate_assignment3(Sq,S,F):- 
prerequisite(Sq,dsl ,S2,F2), 

S >= F2 + 58. 

/* Ready is at least one month after deployment. */ 

altemate_assignment4(Sq,S,F):- 
prerequisite(Sq,dsl ,S2,F2), 

S >= F2 . 

/* Divides three months between two ready alerts. */ 

split_stan(01dStart,01dFinish,SplitStart,SplitFinish):- 
X is OldFinish - OldStart, 

X<=31, 

SplitFinish is OldFinish + 15, 

SplitStart is SplitFinish + 1,!. 

bu ild_readye ven ts ([]):-! . 

build_readyevents([event(Sq,E,S,F)lL]):- 

add_statement(readyevent(Sq,E,S,F), bottom), 
build_readyevents(L). 

build_ready_months([]):-!. 

build_ready_months([event(Sq,E,S,F)IL]):- 

daynumber_to_date(S,[DayS,MonthS,YRS]), 

daynumber_to_date(F,[DayF,MonthF,YRF]), 

Months = MonthF, 

month_to_number(MonthS,YRS,MonthNumber), 
add_statement(ready_month (S q,MonthNumber)) , 
build_ready_months(L). 
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build_ready_months([event(Sq,E,S,F)IL]):- 

daynumber_to_date(S,[DayS, Months, YRS]), 
day number_to_date (F, [Day F Jvlon thF, YRP] ) , 
notCMonthS = MonthF), 

DayS = 1, 

month_to_number(MonthS,YRS,MonthNumberS), 

month_to_number(MonthF,YRF,MonthNumberF), 

add_statement(ready_month(S q.MonthNumberS )) , 

add_statement(ready_month(Sq,MonthNumberF)), 

add_statement(ready_half_montji(Sq,MonthNumberF)), 

build_rcady_months(L). 

build_ready_months([event(Sq,E,S,F)IL]);- 

daynumber_to_date(S,[DayS,MonthS,YRS]), 
daynumber_to_date(F,[DayF>IonthF,YRFl), 
not(MonthS = MonthF), 

month_to_number(MonthS,YRS,MonthNumberS), 

month_to_number(MonthF,YRF,MonthNumberF), 

add_statement(ready_month(Sq,MonthNumberS)), 

add_statement(ready_month(Sq,MonthNumberF)), 

add_statement(ready_half_month(Sq,MonthNumberS)), 

build_ready_months(L). 

goalreachedl([event(Sq,E,S,F)IL]):- 
(E = trla; E = trlb; E = trie), 
yearend(YE), 

F >= YE-90, /* yearend(X) has 90 days added for the trialperiods */ 
list_length([event(Sq,E,S,F)IL],X), 

add_statement(totalreadies(X)) . /* to be used in goalreached2 */ 
endmod /* module vqjreadysearch */. 
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VPMONTHSEARCH MODULE 

This module conducts the stage II search for a schedule with the least number of 
conflicts, using the months that are as close to the first_pick_months as possible. This 
module uses Prof. Rowe’s modified A* program. 



module vpmonthsearch. 

export (nopathsearch / 2, usedstate /2, agenda /3, agenda_check /2, search2 /I , 
prunable /4, repeatifagenda / 0, speci^_less_than /2, usedstate_check / 2, 
cleandatabase / 0, measure work / 0). 

import (prettyprint / 1 , deleteone / 3, yearbegindate /I , delete /3, member /2, 

singlemember /2,generate_first_pick / 0, display_statistics A),ready_half_month /2, 
earmark /3, first_pick_month / 4, month_to_number / 3, subset / 2, ready_month / 2). 

global (status.trialperiod, prerequisite, event, dummy,agenda 4 ’eady_month, usedstate, 
jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
monday,tuesday,wednesday,thursday,friday,saturday,sunday,weekend, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vp 19,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

dynamic(usedstate/2). 

dynamic(beststaie/3). /* used in vpfinalsearch module also */ 

dynamic(agenda/3). /* used in vpfinalsearch module also */ 

dynamic(counter/l ). 

dynamic(yrbeginmonth/l ). 

dynamic(minstate/3). 

dynamic(min_conflict_reached/0). 

/* A STATE is a list of <event(Sq,Evt,Mo,Yr)>’s */ 

search2(ANS) 

generate_first_pick, 
get_stan_state([],START_STATE), 
nopathsearch(START_STATE,ANS) . 

/* The result of get_start_state is to buUd a list (a state) containing all the events that are */ 
/* first-pick events, ie, there will be conflicts in this state, but it is a starting place. */ 

get_start_state(S 1,S2):- 

first_pick_month(Sq,Evt,Mo,Yr), 

del_statemeni(first_pick_month(Sq,Evt,Mo,Yr)), 

month_to_number(Mo,Yr,MN), 

gei_stan_state([event(Sq,Evt,MN)ISl],S2). 
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get_start_state(S 1 ,S 1 ). 



nopathsearch(START,STATEl) 
cleandatabase, 
yearbegindate( [D,M, Y] ), 
month_to_number(M,Y,MN), 
add_statement(yrbeginmonth(MN)), 
add_state(S T ART, ST ART) , 
repeatifagenda, 

pick_best_state(STATE,SC,SD), 

writeC’."), 

add_successors(START,STATE,SC,SD), 
agenda(STATEl,Cl,Dl), 
del_statement(agenda(STATEl ,C 1 ,D 1 )), 
measurework, !. 

pick_best_state(STATE,SC,SD) 

add_statement(beststate(dummy,dummy, dummy), top), 

agenda(S,C,D), 

beststate(S2,C2,D2), 

special_less_than(D,D2), 

del_statement(beststate(S2,C2,D2)), 

add_statement(beststate(S ,C,D) ,top), 

fail . 

/* The next rule is optional. */ 

pick_best_state(STATE,SC,SD) 

countup(agenda(SX,CX,DX),AC), 
writeC'Item count BEFORE agenda pruned: "), 
write(AC),nl,fail. 

pick_best_state(STATE,SC,SD) 
beststate(S,C,D), 
agenda(S2,C2,D2), 
not(S = S2), 
prunable(S2,D2,S,D), 
del_statement(agenda(S2,C2,D2)), 
fail. 

/* The next rule is optional. */ 

pick_best_state(STATE,SC,SD) 

countup(agenda(SX,CX,DX),AC), 
writeC'Item count AFTER agenda pruned: "), 
write(AC),nl,fail. 
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/* The next rule is optional. */ 

pick_best_state(STATE,SC,SD) 

beststate(S,C,D), 

writeC'BESTSTATE: COST = "), write(C), 
write(" ,D = "), write(D), nl, 
prettyprint(S), 
fail . 

pick_best_state(STATE,C,D) 
beststate(STATE 1 ,C 1 ,D 1 ), 

D1 = dummy, 

del_statement(beststate(STATEl,Cl,Dl)), 

minstate(STATE,C,D),!. 

pick_best_state(STATE,C,D) 
beststate(STATE,C,D), 
del_statement(beststate(STATE,C,D)), 
not(D = dummy), ! . 

/* ST is the start state and has the first-pick months in it . */ 

add_successors(ST,STATE,C,D) 
goalreached(STATE,C,D), ! . 

add_successors(ST,STATE,C,D) 
reset_min_conflict, 
successor(ST,STATE,NEWSTATE), 
del_all_statements(min_conflict_reached/0), 
add_state(ST,NEWSTATE), 
fail . 

add_successors(ST,STATE,C,D) 

agenda(STATE,C,D), 

del_statement(agenda(STATE,C,D)), 

add_statement(usedstate(STATE,C),top), 

fail. 

add_successors(ST,STATE,C,D) 

min_conflict_reached, 

del_statement(min_conflict_reached), 

add_statement(minstate(STATE,C,D),top), 

fail. 

reset_min_conflict 

add_statement(min_conflict_reached), ! . 
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add_state(ST;^WSTATE) 

compute_cost(ST,NEWSTATE,CNEW), !, 
agenda_check(NEWSTATE,CNEW), !, 
usedstate_check(NEWSTATC,CNEV^, !, 
eval(NEWSTATE,ENEW), 

D is ENEW + CNEW, 

add_statement(agenda(NEWSTATE,CNEW,D), top), ! . 

add_state(ST,NEWSTATE) 

not(compute_cost(CNEWd^ WSTATE)), 
writeC’Waming: your cost function failed on path list "), 

writeCPATHLISTO. nl. ! • 

add_state(ST,NEWSTATE) 

not eval(NEWSTATE,ENEW). 

writeC’Waming: your evaluation function failed on state "), 
write(NEWSTATE), nl, ! . 

agenda_check(S,C) 

agenda(S,C2,D2), 

del_statement(agenda(S,C2,D2)), ! . 

agenda_check(S,C) 

agenda(S,C2,D2), !, fail . 

agenda_check(S,C) . 

usedstate_check(S,C) 
usedstate(S,C2), 
del_statement(usedstate(S,C2)), 
add_statement(usedstate(S ,C),top), ! . 

usedstate_check(S,C) 
usedstate(S,C2), !, 

usedstate_check(S,C) . 

repeatifagenda . 

repeatifagenda 

agenda(X,Y,Z), repeatifagenda . 
special_less_than(X, dummy) ! . 
special_less_than(X,Y) X<Y . 
cleandatabase 

del_all_statements(agenda/3), 
del_all_statements(usedstate/2), 
del_aIl_statements(beststate/3), 
del_all_statements(counter/l ). 
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measurework 

countup(agenda(X,C,D),NA), 

countup(usedstate(S,C),NB), 

write(NA), write(" incompletely examined state(s) and "), 
write(NB), write(” examined state(s)"),nl, ! . 

countup(P,N) 

add_statement(counter(0)), 
evaluate(P), /* call(P), */ 
counter(K), 

del_statement(counter(K)), 

K2 is K+1, 

add_statement(counter(K2)), 
fail . 

countup(P,N) 

counter(N), 

del_statement(counter(N)), ! . 

eval(STATE,E) 

count_conflicts(STATE,E), ! . 

count_conflicts([],0) . 

count_conflicts(STATE,CONFLICTS) 
find_conflict(STATE, EVENT), 
delete(EVENT.STATE.STATE2), 
count_conflicts(STATE2,CONFLICTS2), 

CONFLICTS is CONTLICTS2 + 1. 

count_conflicts(STATE,0) . 

/* When successor does returns it returns a new state. Find-conflict will find the next */ 
/* event in conflict if backtracked to. */ 

successor(StartSTATE, STATE, [ReSched_EventlSTATE2]):- 
find_conflict(STATE,EVENT), 
deleteone(EVENT,STATE,STATE2), 
get_FP_MN(StartSTATE,EVENT,FirstPickMN), 
reschedule(EVENT,FirstPickMN,STATE,ReSched_Event). 

/* The goal is reached when the number of conflicts is zero or as low as it will be. */ 

goalreached(STATE,C,D) 

Diff is D - C, 

Diff = 0. 



goalreached(STATE,C,D) 

minstate(STATE,C,D), 

add_statement(agenda(STATE,C,D),top). 
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find_conflict(STATE, EVENT) 
member(EVENT,STATE), 
deleteone(E VENT, STATE, STATE2), 
conflict(STATE2,EVENT). 

conflict(STATE,event(Sq,en,MN)) /* The NATOPS is too long to sched w/ RA. */ 
ready_month(Sq,M>0,! . 

conflict(STATE,event(Sq,Insp,MN)) 
ready_month(Sq,MI^,! , 
not(ready_half_month(Sq,MN)), ! . 

conflict(STATE,event(Sq,en,MN)) 

member(event(Sq,Anylnsp,MN),STATE), ! . 

conflict(STATE,event(Sq,ec,MN)) 

member(event(Sq,AnyInsp,MN),STATE),!. 

conflict(STATE,event(Sq,ewc,MN)) 

member(event(Sq,AnyInsp,MN),STATE), ! , 
not(Anylnsp = ewm),!. 

conflict(STATE,event(Sq,ewm,MN)) 

member(event(Sq,AnyInsp,MN),STATE), 
not(AnyInsp = ewe),!. 

conflict(STATE,event(Sq,ewp,MN)) 

member(event(Sq,AnyInsp,MN),STATE), 
not(AnyInsp = ewn),l. 

conflict(STATE,event(Sq,ewn,MN)) 

member(event(Sq,AnyInsp,MN),STATE), 
not(AnyInsp = ewp),!. 

conflict(STATE,event(Sq,Insp,MN)) 

member(event(AnySq,Insp,MN),STATE),!. 

conflict(STATE,event(Sq,ewp,MN)) 

member(event(Sq,ewn,M]S^2), STATE), 

MN > MN2,!. 

conflict(STATE,event(Sq,ewp,MN)) 

member(event(Sq,ewn,MN2),STATE), 

DiffisMN2- 1, 

MN < Diff,!. 

conflict(STATE,event(Sq,ewn,MN)) 

member(event(Sq.ewp,MN2),STATE), 

MN < MN2,I. 
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conflict(STATE,event(Sq,ewc,MN)) 

member(eveni(Sq,ewm,MN2), STATE), 
MN>MN2,!. 

conflict(STATE,eveni(Sq,ewc,MN)) 

member(event(Sq,ewm,MN2), STATE), 
DiffisMN2- 1, 

MN<Diff,!. 

conflict(STATE,event(Sq,ewm,MN)) 

member(eveni(Sq,ewc,MN2),STATE), 

MN<MN2,!. 



get_FP_MN(StartSTATE,event(Sq,Insp,MN),FirstPickMN) 

singlemember(event(Sq,Insp,FirstPickM^,StartSTATE),!. 

/* Reschedule will not succeed if the event can't be scheduled without confict during */ 
/* window of +/- 3 months of first-pick-month */ 

reschedule(event(Sq,Insp,MN),EventFirstPickMN,STATE,event(Sq,Insp,PriorMN)):- 
EventFirstPickMN = MN, 

PriorMN is EventFirstPickMN - 1 , 
yrbeginmonth(Y rBeginMonth), 

PriorMN >= YrBeginMonth, 
prerequisite(Sq,dsO,S,F), 
daynumber_to_date(S,[Sday,Smo,Syr]), 
month_to_number(Smo,Syr,SSMN), 

PriorMN > SSMN, /* Added to prevent scheduling during ssd. */ 

not(find_conflict(STATE,event(Sq,Insp,PriorMN))),!. 

reschedule(event(Sq,Insp,MN),EventFirstPickMN,STATE,event(Sq,Insp,PostMN)):- 
MN > EventFirstPickMN - 2, 

MN < EventFirstPickMN -t- 1 , 

PostMN is EventFirstPickMN -i- 1, 
earmark(Sq,Insp,[Day,Month,Year]), 

month_to_number(Month,Year,DDM), /* Drop-Dead Month */ 

PostMN <= DDM, 

not(find_conflict(STATE,event(Sq,Insp,PostMN))),!. 

reschedule(event(Sq,Insp,MN),EventFirstPickMN,STATE,event(Sq,Insp,PostMN)):- 
MN > EventFirstPickMN - 2, 

MN < EventFirstPickMN + 1 , 

PostMN is EventFirstPickMN -i- 1, 

not earmark(Sq,Insp,_), /* case of no earmark input */ 

not(find_conflict(STATE,event(Sq,Insp, PostMN))),!. 
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reschedule(event(Sq,Insp,MN),EventFirstPickMN,STATE,event(Sq,Insp,PriorMN)):- 
MN > EventFirstPickMN - 2 , 

MN < EventFirstPickMN + 2, 

PriorMN is EventFirstPickMN - 2, 
yrbeginmonth(Y rBeginMonth), 

PriorMN >= YrBeginMonth, 
prerequisite(Sq,dsO,S,F), 
daynumber_to_dat e (S , [S day ,S mo, S yr] ) , 
month_to_number(Smo,S yr,S S MT^ , 

PriorMN > SSMN, 

not(fmd_conflict(STATE,event(Sq,Insp .PriorMN))),!. 

reschedule(event(Sq,Insp,MN),EventFirstHckMN,STATE,event(Sq,Insp,PostMN)):- 
MN > EventFirstPickMN - 3 , 

MN < EventFirstPickMN + 2, 

PostMN is EventFirstPickMN + 2, 
earmark(Sq,Insp,[Day,Month,Year]), 

month_to_num^r(Month,Year,DDM), t* Drop-Dead Month . ♦/ 

PostMN <= DDM, 

not(find_conflict(STATE,event(Sq,Insp,PostMN))),l. 

reschedule(event(Sq,Insp,MN),EventFirstPickMN,STATE,event(Sq,Insp,PostMN)):- 
MN > EventFirstPickMN - 3 , 

MN < EventFirstPickMN -l- 2, 

PostMN is EventFirstPickMN 4- 2, 

not earmark(Sq,Insp,_), /* case of no earmark input */ 

not(find_conflict(STATE,event(Sq,Insp,PostMN))),l. 

reschedule(event(Sq,Insp,MN),EventFirstPickMN,STATE,event(Sq,Insp,PriorMN)):- 
MN > EventFirstPickMN - 3 , 

MN < EventFirstPickMN -i- 3, 

PriorMN is EventFirstPickMN - 3, 

PriorMN =/= MN, 
yrbeginmonth(Y rBeginMonth), 

PriorMN >= YrBeginMonth, 
prerequisite(Sq,dsO,S,F), 
daynumber_to_date(S,[Sday,Smo,S>T]), 
month_to_number(Smo,Syr,SSMN), 

PriorMN > SSMN, 

not(find_conflict(STATE,event(Sq,Insp, PriorMN))),!. 

reschedule(event(Sq,Insp,MN),EventFirstPickMN,STATE,event(Sq,Insp,PostMN)):- 
PostMN is EventFirstPickMN -t- 3, 

PostMN =/= MN, 

earmark(Sq,Insp,[Day,Month,Year]), 

month_to_numl^r(Month,Year,DDM), /* Drop-Dead Month */ 

PostMN <= DDM, 

not(fmd_conflict(STATE,event(Sq,Insp,PostMN))),!. 
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reschedule(event(Sq,Insp,MN),EventFirstPickMN, STATE, event(Sq,Insp,PostMN))> 
PoslMN is EventFirstPickMN + 3, 

PostMN =/= MN, 

not earmark(Sq,Insp,_), /* case of no earmark input */ 
not(find_conflict(STATE,event(Sq,Insp,PostMN))),!, 

/* If ewe or ewp are in conflict then put them in month with real inspection if it is not in a */ 
/* conflict . */ 

reschedule(event(Sq,ewc,MN),_,STATE,event(Sq,ewc>INl)):- 
singlemember(event(Sq,ewm,MN 1 ), STATE), 

MN=/=MN1, 

not find_conflict(STATE,event(Sq,ewm,MNl)), !. 

reschedule(event(Sq,ewp,MN),_,STATE,event(Sq,ewp,MNl)):- 

singlemember(event(Sq,ewn,MNl),STATE), 

mn=/=mni, 

not find_conflict(STATE,event(Sq,ewn,MNl)), !. 
compute_cost(STARTSTATE,n,0):- !. 

compute_cost(STARTSTATE,[event(Sq,Insp,MN)ISTATE],Cost) 

singlemember(event(Sq,Insp,BestMonth),STARTSTATE), 

Diff is MN - BestMonth, 

cost_function (Diff , Cost 1 ), 

compute_cost(STARTSTATE,STATE,Cost2), 

Cost is Costl + Cost2. 

cost_function(0,0). 

cost_function(l,l). 

cost_function(2,2). 

cost_function(3,3). 

cost_function(-l,0.5e0). 

cost_function(-2, 1 ,5e0). 

cost_function(-3,2.5e0). 

/* Prunable determines degree of optimization by purging agenda of selected items. */ 

prunable(STATE,D,BESTSTATE,Dbest) 

k_factor(K), 

D > Dbest + K, !, 

prunable(STATE,D,BESTSTATE,Dbest) 

check_permutation(STATE,BESTSTATE), ! . 

check_permutation(STATEl,STATE2) 
subset(STATE 1 ,STATE2), 
subset(STATE2,STATEl),!. 

k_factor(0). 

endmod /* vpmonthsearch */ . 
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VPFIRSTPICK MODULE 

This module computes the first_pick_month for each event to be scheduled. 



module vpfirstpick . 

export( generate_first_pick / 0, first_pick_month / 4, month_to_number / 3, 
number_to_month / 3 ). 

import( cventnames / 1, squadronlist / 1, prerequisite / 4,datetodayn umber/2, 

daynumber_to_date fl, earmark /3, member /2, priorevent / 4, yearbegindate/ 1, 
yearenddate / 1, yearend / 1). 

global (status, trialperiod,prerequisite,priorevent, 

jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
monday,tuesday,wednesday,thursday,friday,saturday,sunday,weekend, 
month_to_number / 3, number_to_month / 3 ). 
priorevent / 4, yearbegindate/ 1, yearenddate / 1, yearend / 1). 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9 , vp 1 9 , vp40, vp46 ,vp47 , vp4 8 , vp50) . 

/*$eject*/ 

body. 

dynamic(first_pick_month/4). 

dynamic(tot_evt_count/l ). 

generate_first_pick 

writeC'Finding the 'first-pick' month for each inspection ..."),nl,nl, 

eventnames(InspectionList), 

member(Inspection,InspectionList), 

squadronlist(SqList), 

member(Sq ,SqLi st) , 

evt_ok_to_sched(Sq,Inspection), 

generate_first_pick_month(Sq, Inspection), 

fail. 

generate_first_pick 

writeC'The 'first-pick' months follow:"), nl, 

first_pick_month(Sq,Insp,MO,YR), 

write(Sq),write_tab(7), 

write(lnsp), write _tab( 1 2), 

write(MO),\\Tite_tab(17), 

write(YR),nl, 

fail. 

generate_first_pick . 
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/* Check if event has already been conducted during the current training cycle. 



*/ 



evt_ok_to_sched(Sq,Insp) 

evt_not_ready(Sq,Insp), 

not(priorevent(Sq,Insp,Start,Finish)),!. 

evt_ok_to_sched(Sq,ewp) 

priorevent(Sq,ewn,StartDate,PEDN), 
earmark(Sq,ewn,EMDate), 
datetodaynumber(EMDate,EMDN) , 
prerequisite(Sq,dr 1 ,DrSDN,DrFDN), 
yearend(YE), 

PEDN <= DrSDN, 

EMDN <= YE, 

EMDN >= DrFDN, !. 

evt_ok_to_sched(Sq,Insp) 

evt_not_ready(Sq,Insp), 

priorevent(Sq,Insp,StartDate,PEDN), 

earmark(Sq,Insp,EMDate), 

datetodaynumber(EMDate,EMDN), 

prerequisite(Sq,drl,DrSDN,DrFDN), 

yearend(YE), 

PEDN <= DrSDN, 

EMDN <= YE, 

EMDN >= DrFDN, !. 

evt_not_ready(Sq,Insp) 
not(Insp = trla), 
not(Insp = trlb), 
not(Insp = trie),!. 

generate_first_pick_month(Sq,ewn) 

earmark(Sq,ewn,[Day,Month,Year]), 

month_to_number(Month,Year,MN), 

MN2 is MN-0, 

year_begin_month_num(YB), 

MN2 >= YB, 

y ear_end_month_n urn (YE) , 

MN2 <= YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(fu'st_pick_month(Sq,ewn,Month2,Year2)),!. 
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generate_first_pick_month(Sq,ewp) 

earmark(Sq,ewn,[Day,Month,Year]), 
month_to_number(Month,Y ear.MN), 

MN2 is MN-1, 

year_begin_mon th_n um( YB ) , 

MN2 >= YB, 

year_end_month_num(YE), 

MN2 <= YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ewp,Month2,Year2)), 

generate_first_pick_month(Sq,ewc) 

prerequisite(Sq,drl,Startdays,Finishdays), 
daynumber_to_date(Startdays,[Day,Month,Year]), 
month_to_number(Month,Y ear,MN), 

MN2 is MN-4, 

earmark(Sq,ewc,[Day3,Month3,Year3]), 

month_to_number(Month3,Year3,MN3), 

MN2 <= MN3, 
year_begin_month_num(YB), 

MN2 >= YB, 

year_end_month_num(YE), 

MN2 <= YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ewc,Month2,Year2)), 

generate_first_pick_month(Sq,ewc) 

earmark(Sq,ewc,[Day,Month,Year]), 
month_to_number(Month,Year,MN), 
year_begin_month_n um( YB ) , 

MN >= YB, 

year_end_month_num(YE), 

MN <= YE, 
inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ewc,Month,Year)),!. 
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generate_first_pick_month(Sq,ewm) 

prerequisite(Sq,drl,Startdays,Fimshdays), 
daynumber_to_date(Startdays,[Day .Month, Year]), 
month_to_number(Month,Year,MN), 

MN2 is MN-3, 

earmark(Sq,ewm,[Day3, Months, Year3]), 
month_to_number(Month3,Year3,MN3), 

MN2 <= MN3, 
year_begin_month_num(YB), 

MN2 >= YB, 

year_end_month_num(YE), 

MN2 <= YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ewm,Month2,Year2)),!. 

generate_first_pick_month(Sq,ewm) 

earmark(Sq,ewm,[Day, Month, Year]), 
month_to_number(Month,Y ear,MN), 
year_begin_month_num(YB), 

MN >= YB, 

year_end_month_num(YE), 

MN <= YE, 
inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ewm,Month,Year)),!. 

generate_first_pick_month(Sq,ec) 

prerequisite(Sq,drl,Startdays,Finishdays), 
daynumber_to_date(Startdays,[Day,Month,Year]), 
month_to_number(Month,Y ear.MN), 

MN2 is MN-2, 

eannark(Sq,ec,[Day3,Month3,Year3]), 

month_to_number(Month3,Year3,MN3), 

MN2 <= MN3, 
year_begin_month_num(YB ), 

MN2 >= YB, 

year_end_month_num(YE), 

MN2 <= YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ec,Month2,Year2)),!. 

generate_first_pick_month(Sq,ec) 

eannark(Sq,ec,fDay,Month,Year]), 
month_to_number(Month , Y ear.MN), 
year_begin_month_num(YB), 

MN >= YB, 

year_end_month_num(YE), 

MN <= YE, 
inc_tot_evt_count, 

add_statement(first_pick_month(Sq,ec,Month,Year)),!. 
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/♦ Next rule in case no earmark is input for Cl. */ 

generate_first_pick_month(Sq,ec) 

prerequisite(Sq,drl,Startdays,Finishdays), 
daynumber_to_date(Startdays,[Day,Month,Year]), 
month_to_number(Month, Year.MN), 

MN2 is MN-2, 

year_begin_month_num(YB), 

MN2 >= YB, 

year_end_month_num(YE), 

MN2 <= YE, 

number_to_month(Month2,Year2,MN2), 
inc_tot_e vt_count , 

add_statement(first_pick_month(Sq,ec,Month2,Year2)),!. 

generate_first_pick_month(Sq,en) 

prerequisite(Sq,drl,Startdays,Finishdays), 

^ynumber_to_date(Startdays,[Day, Month, Year]), 
month_to_number(Month,Year,MN), 

MN2 is MN-7, 

earmark(Sq,en,[Day3,Month3,Year3]), 

month_to_number(Month3,Year3,MN3), 

MN2 <= MN3, 
year_begin_month_num(YB), 

MN2 >= YB, 

year_end_month_num(YE), 

MN2 <= YE, 

number_to_month(Month2,Year2,MN2), 

inc_tot_evt_count, 

add_statement(first_pick_month(Sq,en,Month2,Year2)),!. 

generate_first_pick_month(Sq,en) 

earmark(Sq,en,[Day,Month,Year]), 

month_to_number(Month,Year,MN), 

year_begin_month_num(YB), 

MN >= YB, 

year_end_month_num(YE), 

MN <= YE, 
inc_tot_evt_count, 

add_statement(first_pick_month(Sq,en, Month, Year)),!. 

month_to_number(Mont h , Y ear,MonthN umber) : - 
month_num(Month,MN), 

MonthNumber is MJs’ + (Year*12). 

number_to_month(Month,Year,MonthNumber) 

Year is MonthNumber div 12, 

MN is MonthNumber mod 12, 
month_num(Month,MN). 
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month_num(j an,0). 
month_num(feb, 1 ). 
month_num(mar,2). 

month_num(apr,3)- 

momh_num(may,4). 

month_num(jun,5). 

month_num^ul,6). 

month_num(aug,7). 

month_num(sep,8). 

momh_num(oct,9). 

month_num(nov, 1 0). 

month_num(dec,l 1 ). 

year_begin_month_num(MN) 

yearbegindate([Day,Month,YR]), 

month_to_number(Month,YR,MN). 

year_end_month_num(MN) 

yearenddate([Day,Month,YR]), 

month_to_number(Month,YR,MN). 

inc_tot_evt_count 

tot_evt_count(X), 

Yis X+1, 

del_statement(tot_evt_count(X)), 

add_statement(tot_evt_count(Y)),!. 

inc_tot_evt_count 

add_statement(tot_evt_count( 1 )),! . 

endmcxl /* module vpfu^tpick */ . 
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VPFINALSEARCH MODULE 
This module does the stage HI search for the optimum final schedule. 



module vpfinalsearch. 

export (generate_final_schedule /3 ). 

import (max / 2, yearbegin / 1, datetodaynumber / 2, singlemember / 2, 

number_to_month / 3, daysofmonth / 2,difference_between_dates2 / 3, agenda / 3, 
readyevent/4,prettyprint /I, database_conversion /O, cleandatabase / 0, 
repeatifagenda / O.squadronlist / 1, measure work / 0, agenda_check / 2, 
usedstate_check / 2, successor_counter / 0, sortmonthevent / 2, 
special_less_than /2,prunable /4, prerequisite /4, trialperiod /3, member /2, 
sortevent /2,priorevent / 4, open / 2, tell / 2, told / 1, teamevents /I, yearend /I). 

gloabal (jan,feb,mar, apr,may,jun,jul,aug,sep,oct,nov,dec, 

monday,tuesday,wednesday,thursday,friday, Saturday, sunday.weekend, 
status, trialperiod.prerequisite, event, dummy ,usedstate, agenda, readyevent, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vp 19,vp40,vp46,vp47,vp48,vp50). 

local(state). 

/*$eject*/ 

body. 

dynamic(total_events/l ). 

dynamic(beststate/2). 

dynamic (monevt/3 ). 

dynamic(sccsrfound/0). 

dynamic (mi n_cost_reached/0) . 

dynamic(oldcost/l ). 

dynamic(index/l ). 

dynamic(state/2). 

dynamic(cost/2). 

dynamic(scost/3). 

dynamic(tcost/3). 

generate_final_schedule(StartList,MonthList,FinalList) 

writeC'Generating the final schedule "),nl, 

list_length(StartList,Ll), 

list_length(MonthList,L2), 

Total is LI + L2, 

add_statement(total_events(Total)), 
sortmonthevent(MonthLi st,SortedLi st), 
assert_monevts(SortedList), 
hillclimbsrch(StanList,FinalList). 
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assert_mone V ts( [] ) . 

assert_monevts([event(SQJNSP,MN)ILIST]) 

add_statement(monevt(SQ,INSP,MN), bottom), 
assert_monevts(LIST). 

hillclimbsrch(START, STATE) 
cleandatabase2, 
resetindex, 
index(IndexS), 

ini tialize_start(IndexS .START), 
add_state2 (start,IndexS ), 
repeatifagenda, 
pick_best_state2(INDEX), 
writeC’."), 

del_all_statements(oldcost/l ), 

add_statement(oldcost(dummy)), 

add_successors2(INDEX), 

del_all_statements(sccsrfound/0), 

agenda(INDEX ,C,D) , 

del_statement(agenda(INDEX,C,D)), 

state(INDEX,STATE), 

measurework. 



pick_best_state2(INDEX) 
agenda(INDEX,C,D) . 

add_successors2(INDEX) 

goalreached2(INDEX), +. 

add_successors2(INDEX) 

del_all_statements(sccsrfound/0), 
del_all_statements(min_cost_reached/0), 
state(INDEX, STATE), 
successor2a(STATE,NewSTATE), 
incindex, 

index(NewINDEX), 

add_statement(state(NewINDEX,NewSTATE)), 

check_cost(INDEX,NewINDEX), 

add_state2(INDEX,NewINDEX), 

successor_counter, 

add_successors2(INDEX) 

del_statement(agenda(INDEX,C,D)), 

add_statement(usedstate(INDEX,C)), 

incindex;- 

index(OLDI), 

del_statement(index(OLDI)), 

Newl is OLDI + 1 , 
add_statement(index(NewI)),+. 
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resetindex 

del_all_statetnents(index/ 1 ) , 
add_statement(index(0)),+. 

del_dynamics(INDEX) 

del_statement(state(INDEX, STATE)). 

initialize_start(INDEX, START) 

add_statement(state(INDEX,START)), 
add_statement(cost(INDEX,0)) , 
init_scost(INDEX), 
init_tcost(INDEX) ,+. 

init_scost(INDEX) 

squadronlist(SQLIST), 

member(SQ,SQLIST), 

add_statement(scost(INDEX,SQ,0)), 

fail. 

init_scost(INDEX) !. 

init_tcost(INDEX) 

teamevents(EVTLIST), 
member(EVT,EVTLIST), 
add_statement(tcost(INDEX,E VT,0)) , 
fail. 

init_tcost (INDEX) !. 

cost2(INDEX,NEWINDEX,NCost) 

state(NEWINDEX,[event(SQ,EVT,S,F)ISTATE]), 

teamevents(EVTLIST), 

singlememter(EVT,EVTLIST), 

copycost(INDEX,NEWINDEX), 

squadroncost(SQ,[event(SQ,EVT,S,F)ISTATE],SCOST), 

scost(NEWINDEX,SQ,X), 

del_statement(scost(NEWlNDEX,SQ,X)), 

add_statement(scost(NEWINDEX,SQ,SCOST)), 

teamcost(EVT,[event(SQ,EVT,S,F)ISTATE],TCOST), 

tcost(NEWINDEX,E VT,X 1 ), 

del_statement(tcost(NEWINDEX,EVT,X 1 )), 

add_statement(tcost(NEWINDEX,EVT,TCOST)), 

computecost(]^WINDEX,NCost), +. 



/* EVT is a teamevt */ 
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cost2(INDEX,NEWINDEX,NCost) 

state(NEWINDEX,[event(SQ,EVT,S,F)lSTATE]), 

copycost(INDEX,NEWINDEX), 

squadroncost(SQ,[event(S Q,EVT,S ,F)ISTATE] ,S COS T) , 
scost(NEWINDEX,SQ^), 
del_statement(scost(NEWIl^EX,SQ^)), 
add_statement(scost(NEWINDEX,S Q.SCOST)) , ! , 
computecost(NEWINDEX,NCost), +. 

copycost(INDEX,NEWTNDEX) 

copyscostaNDEX,NEWINDEX), 
copytcost(INDEX,NEWINDEX), ! . 

copyscost(INDEX,NEWINDEX) 
squadronlist(SQLIST), 
member(S Q, S QLIST) , 
scost(INDEX,SQ,SCOST), 
add_statement(scost(NE\\WDEX,SQ,SCOST)), 
fail. 

copyscost(INDEX,NEWINDEX) !. 

copytcost(INDEX,NEWINDEX) 

teamevents(EVTLIST), 

member(EVT,EVTLIST), 

tcostaNDEX.EVT.TCOST), 

add_statement(tcost(NEWIf^EX,EVT,TCOST)), 

fail. 

copytcost(INDEX,NEWINDEX) !. 

computecost(ENDEX,Cost) 
squadronlist(SQLIST), 
compscost(INDEX,SQLIST,SCOST), 
teamevents(EVTLIST), ! , 
comptcost(INDEX,EVTLIST,TCOST), 

Cost is SCOST + TCOST. 

compscost(lNDEX,[],0) !. 

compscost(INDEX,[SQISQLIST], SCOST) 
scost(INDEX,SQ,Costl), 
compscost(INDEX,SQLIST,Cost2), 

SCOST is Costl + Cost2. 

comptcost(INDEX,[],0) !. 

comptcost(INDEX,[EVTIEVTLIST], TCOST) 
tcostaNDEX ,E VT,Cost 1 ) , 
comptcost(INDEX,EVTLlST,Cost2), 

TCOST is Costl + Cost2. 
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squadroncost(Sq,State,Scost):- 

bag_of(Occurance,groupsquadron(Sq,State,Occurance),List), 

sonevem(List,[XISortedList]), 

spiece_cost(siart,X,Scost2x), 

scost2x([XISortedList],Scost3), 

Scost is Scost2x + ScostS. 

teamcost(Eventname,State,Tcost):- 

teamevents(TE), 

member(Eventname,TE), 

bag_of(Occurance,groupteam(Eventname, State, Occurance), List), 

sortevent(List,SortedList), 

tcost2x(SortedList,Tcost). 

check_cost(INDEX,NewINDEX) 

getcosts(INDEX,NewINDEX,NewC,01dC), 

special_less_than(NewC,01dC), 

del_statement(oldcost(01dC)), 

add_statement(oldcost(NewC)), 

remove_agenda_item(01dC), 

check_cost(INDEX,NewINDEX) 

add_statement(min_cost_reached), - . /* is same as "!,fail" */ 

remove_agenda_item(01dC) 

OldC = dummy. 

remove_agenda_item(01dC) 

agenda(I,01dC,D), /* Remove the higher cost. */ 

del_statement(agenda(I,01dC,D)). 

getcosts(INDEX,NewINDEX,NewC,01dC):- 

oldcost(OldC), 

cost2aNDEX,NewINDEX,NewC),+. 

add_state2(start,NewINDEX) 
state(NewINDEX, STATE), 
eval2(STATE,Enew), 

D is Enew, 

add_statement(agenda(NewINDEX,0,D)), +. 

add_state2(INDEX,NewINDEX) 

oldcost(Cnew),!, 

agenda_check(NewINDEX,Cnew), !, 
usedstate_check(NewINDEX,Cnew), !, 
state(NewINDEX,NewSTATE), 
eval2(NewSTATE,Enew), 

D is Enew + Cnew, 

add_statement(agenda(NewINDEX,Cnew,D)), +. 
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add_state2(ENDEX,NewINDEX) 
state(NewD4DEX,NewSTATE), 
not eval2(NewSTATE,Enew), 

writeC'Waming: your evaluation function failed on state "), 
write(NewINDEX), nl, +. 

goalreached2(INDEX) 

state(INDEX,STATE), 
total_events(Total), 
list_length(STATE,Length),! , 

Total = Length . 

/* For successor2a to pick the events chronologically monevt's must be asserted into */ 

/* the data base correctly. */ 

successor2a(STATE,NewSTATE) 
monevt(SQ,ec,MN), 
not member(event(SQ,ec,S,F), STATE), 
successor2(SQ,ec,MN, STATE, NewSTATE),+. 

successor2a(STATE,NewSTATE) 
monevt(SQ,EVT,MN), 
not member(event(SQ.EVT,S,F), STATE),!, 
writeC'adding "),write(SQ),write(" "),write(EVT),nl, 
successor2(SQ,EVT,MN,STATE,NewSTATE). 

successor2(SQ,ec,MN,STATE,[event(SQ,ec,Start,Finish)lSTATE]) 

prerequisite(SQ,drl,DS,DF), 

IdealStart is DS - 45, 
number_to_month(MO,YR,MN), 
datetodaynumber([l,MO,YR],MOStart), 
bag_of(S ,validstan(IdealStart,MOS tart,S),SList) , 
max(SList,Start), 

trialperiod(ec,Start,Finish),+. /* Cut used because there's only one choice. */ 

successor2(SQ,ewp,MN,STATE,[event(SQ,ewp, Start, Finish)lSTATE]) 

monevt(SQ,ewn,MN), /* Find ewp and ewn in same month. */ 

not sccsrfound, 

get_moinfo(MN,MOStart,MOEnd), 
trialperiod(e'A'p,Start,Finish), 
not min_cost_reached. 

Finish >= MOStart, 

Start < MOStart + 7, 

not readyconflict(SQ, Stan, Finish), 

not realeventconflict(ewp,Start,Finish,STATE), 

add_statement(sccsrfound). 
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successor2(SQ,ewn,MN, STATE, [event(SQ,ewn,Start,Finish)ISTATE]) 

monevt(SQ,ewp,MN), /♦ Find ewp and ewn in same month. */ 

not sccsrfound, 

get_moinfo(MN,MOSt^MOEnd) , 
trialperiod(ewn,Start, Finish), 
not min_cost_reached. 

Start > MOStart + 11, 

Start <= MOEnd, 

not readyconflict(SQ,S tart, Finish), 

not realeventconflict(ewn,Start,Finish,STATE), 

add_statement(sccsrfound). 

successor2(SQ,ewc,MN,STATE,[event(SQ,ewc,Start,Finish)ISTATE]) 

monevt(SQ,ewm,MN), /* Find ewe and ewm in same month. */ 

not sccsrfound, 

get_moinfo(MN,MOStartJvlOEnd) , 
trialperiod(ewc,Start,Finish) , 
not min_cost_reached. 

Finish >= MOStart, 

Start < MOStart + 7, 

not readyconflict(SQ,Start,Finish), 

add_statement( sccsrfound). 

successor2(SQ,ewm,MN,STATE,[event(SQ,ewm,Start,Finish)ISTATE]) 

monevt(SQ,ewc,MN), /* Find ewe and ewm in same month. */ 

not sccsrfound, 

get_moinfo(MN,MOStart,MOEnd), 
trialperiod(ewm,Start,Finish), 
not min_cost_reached. 

Start > MOStart +11, 

Start <= MOEnd, 

not readyconflict(SQ,Start,Finish), 

add_statement(sccsrfound). 

successor2(SQ,INSP,MN,STATE,[event(SQ,INSP,Start,Finish)ISTATE]) 
not sccsrfound, 

get_moinfo(MN,MOStart,MOEnd), 
trial peri od(INSP,Sian,Finish), 
not min_cost_reached. 

Finish >= MOStart, 

Start <= MOEnd , 

not readyconflict(SQ,Start,Finish), 

not otherevtconflict(SQ,Start,Finish,STATE), 

not realeventconflict(INSP,Start,Finish,STATC), 

add_statemeni(sccsrfound). 
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/* The next rule is the 'catch-all'. */ 

successor2(SQ, INSP,MN,STATE,[event(SQ,INSP, Start, Finish)ISTATE]) 
get_moinfo2(MN,MOSt^MOEnd), 
trialperiod(INSP, Start, Finish), 
not min_cost_reached. 

Finish >= MOStart, 

Start <= MOEnd . 

get_moinfo(MN,MOStart,MOEnd) 
number_to_month(MO,YR,MN), 
datetodaynumber([ 1 , MO, YR] , MOStart), 
daysofmonth(MO,LastDay), 
datetodaynumber([LastDay,MO,YR],MOEnd),+. 

get_moinfo2(MN,MOStart,MOEnd):- 

not sccsrfoundy* prevents using rule if 1st rule worked */ 
number_to_month(MO, YR ,M1^ , 
datetodaynumber([ 1 , MO, YR], MOStart), 
daysofmonth(MO,LastDay), 
datetodaynumber([LastDay,MO,YR],MOEnd),+. 

validstart(Ideal,MOStart,Start) 
trialperiod (ec , S tart, F), 

Start <= Ideal, 

Start >= MOStart. 

readyconflict(SQ,S,F) 

readyevent(SQ,E,RS,RF), 

RS <= S, 

RF >= S. 

readyconflict(SQ,S,F) 

readyevent(SQ,E,RS,RF), 

RS <= F, 

RF >= F. 

otherevtconflict(SQ,S,F,STATE) 

member(event(SQ,E,Sl,Fl),STATE), 

SI <=S, 

FI >= S. 

otherevtconflict(SQ,S,F,STATE) 

member(event(SQ,E,S 1 ,F1 ),STATE), 

SI <=F, 

FI >= F. 

otherevtconflict(SQ,S,F,STATE) 

member(event(SQ,E,Sl, FI), STATE), 

S 1 >= S, 

SI <= F. 
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realeventconflict(ewp,Start,Finish,STATE):- 
member(event(SQ,ewn,S 1 ,F1 ),STATE), 

SI <= Stan, 

FI >= Stan. 

realeventconflict(ewp,Stan,Finish,STATE):- 
member(event(SQ,ewn,Sl, FI), STATE), 

S 1 <= Finish, 

FI >= Finish. 

realeventconflict(ewn,Stan,Finish,STATE);- 
member(event(SQ,ewp,S 1 ,F1 ),STATE), 

SI <= Stan, 

FI >= Stan. 

realeventconflict(ewn,Stan,Finish,STATE):- 
meniber(event(SQ,ewp,S 1 ,F1 ), STATE), 

S 1 <= Finish, 

FI >= Finish. 

realeventconflict(_,Stan,Finish,STATE):* fail. 

groupsquadron(Sq,State,event(Sq,E,S,F)):- 

member(event(Sq,E,S,F),State). 

groupteam(Eventname,State,event(Sq,Eventname,S,F));- 
member(event(Sq,Eventname,S,F), State). 

/* Squadron cost . */ 

scost2x([X.YIL],Cost):- 

spiece_cost(X,Y,Cost2), 

scost2x([YIL],Cost3), 

Cost is Cost2 + Cost3. 

scost2x([X],0). 

scost2x([],0). 

/* Team cost */ 

tcost2x([X,YIL],Cost):- 

tpiece_cost(X,Y,Cost2), 

tcost2x([YIL],Cost3), 

Cost is Cost2 + Cost3. 

tcost2x([X],0). 

tcost2x([],0). 
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tpiece_cost(event(Sql ,E1 »S 1 ,F1 ),event(Sq2,E2,S2,F2),Cost):- 
D is S2-F1, 
costfn3(D,Cost). 

^♦****j|e* J|c*****5k5|es|<sfe********* poUOW-Ofl EVENT ^^* ********** ^* ****** ^* ***** ^ 
/* First argument occurs BEFORE next argument and second argument on or after */ 
/* schedule begin date and this is used in squadron and team costs. */ 

/* Cost for related events has min at delay = 21 . */ 

spiece_cost(event(Sq,ewp,Sl,Fl),event(Sq,ewn,S2,F2),Cost);- 
DisS2-Fl , 
costfnl(D,Cost). 

spiece_cost(event(Sq,ewc,Sl,Fl),event(Sq,ewm,S2,F2),Cost);- 
D is S2 - FI , 
costfnl(D,Cost). 

/* Cost for unrelated events has min at delay = 21. */ 

spiece_cost (event(Sq 1 ,E 1 ,S 1 ,Fl),event(Sq2,E2,S2,F2),Cost):- 
DisS2-Fl, 

D < 180, 
costfn2(D,Cost). 

/* The next rule is used when D > 180 to discount gaps caused by deployments. */ 

spiece_cost(event(Sql ,E 1 ,S 1 ,F1 ),event(Sq2,E2,S2,F2),0). 

^i)t************************* PiRS'p EVENT ******************************/ 

spiece_cost(start,event(Sq,trla,S,F),0) . 
spiece_cost(start,event(Sq,trlb,S,F),0) . 
spiece_cost(stan,event(Sq,trlc,S,F),0) . 
spiece_cost(start,event(Sq,ec,S,F),0) . 

spiece_cost(start,event(Sq,ewm,S,F),Cost):- 
priorevent(Sq,ewc,S 1 ,F1 ), 

DisS- SI, 
costfnl(D,Cost). 

spiece_cost(start,event(Sq,ewn,S,F),Cost):- 
priorevent(Sq,ev'p,S 1 ,F1 ), 

Dis S - FI, 
costfnl(D,Cost). 

spiece_cost(start,event(Sq, Event, S,F),Cost):- 
((Event = evvp; 

Event = ewn); 

Event = en), 

prerequisite(Sq,dsO,S 1 ,F1), 

DisS -FI, 
costfn2(D,Cost). 
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spiece_cost(start,event(Sq,Event,S,F),Cost):- 
(Event = ewe; 

Event = ewm), 
prerequisite(S q,dv 1 ,S 1 ,F 1 ), 

Dis S - SI, 
costfn2(D,Cost). 

/* Next rules are cost function for non-related events. */ 

costfn2(Dl,Cost) 

D1 <30, 

DisDl/21 , 

Cost is 100 - 243*D + 189*D**2 - 45*D**3,!. 
costfn2(Dl,Cost) 

Cost is 10 - 6e-l*Dl + Dl**2/100, !. 

t* Next rules are cost function for squadron related-events. */ 

costfnl(Dl,Cost) 

D1 <21, 

DisDl/21 , 

Cost is 100 - 243*D + 189*D**2 - 45*D**3, !. 
costfnl(Dl,Cost) 

Cost is 10 - 0.85714e0*Dl + Dl*Dl/49, !. 



/* Next rules are teamcost function. 

costfn3(Dl,Cost) 

D1 <51, 

D is Dl/30, 

Cost is 100 -247.25eO*D + 197.5eO*D**2 - 49.25eO*D**3, !. 



costfn3(Dl,Cost) 

Cost is 8.52e0 + l/(50/Dl)**2, !. 



*/ 



eval2(State,Eval):- 

total_events(T), 

list_length(State,N2), 

X is T - N2, /* X is number events left to schedule . */ 

Eval is X, +. /* Minimum value of cost is 1.0. */ 



cleandatabase2 

cleandatabase, 
del_all_statements(index/l), 
del_all_statements(min_cost_reached/0), 
del_all_statements(oldcost/l ), 
del_all_statements(beststate^). 

expon(X,Y) 

exponl(X,Y). 
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expon(X,Y) 

NX is -X, 
exponl(NX,Yl), 

Yis lA^l. 

exponl(X.Y) 

exponi(X,l,l,l,Y). 

expon2(X,N,S,T,S) 

T<1.0E-3,+. 

expon2(X,N,S,T,Y) 

TPl is X/N*T, 

SPl is S+TPl, 

NPl is N+1, 

expon2(X,NPl,SPl,TPl,Y) . 
endmod /* module vpfinalsearch */ . 
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VPUTILITIES MODULE 

This module contains the numerous utility functions used in several other modules. It 
was written by Professor Rowe and LCDR Hutson in C-Prolog, and has been converted 
to mn in M-Prolog. 



module vputilities. 

expon (append / 3, delete / 3, singlemember / 2, deleteitems / 3, first / 2, member / 2, 
open / 2, tell / 2, told / 1, deleteone / 3, stars / 0, subset /2, prettyprint / 1, max / 2, 
union / 3, xbagof / 3, countl / 1, count2 / 1, count3 / 1, counterl /I, sortevent / 2, 
sortmonthevent / 2, abs / 2, myname /2). 

global (stams,trialperiod, prerequisite, event, 

jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
monday,tuesday,wednesday,thursday,friday,saturday,sunday,weekend, 
tr la,tr 1 b,tr lc,ewp,ewn,en,ewc,ewm,ec,dvl ,dr 1 ,ds 1 ,tr 1 ,ds0, 
vp9,vp 1 9,vp40,vp46 ,vp47 ,vp4 8,vp50). 

/*$eject*/ 

body. 

dynamic(countl/l). 
dynamic(count2/l ) . 
dynamic(count3/l ) . 



abs(X,X) X >= 0. 
abs(X,Y) Y is 0 - X. 
last([X],X). 

last([XIL],Y) last(L,Y). 
member(X,[XIL]). 
member(X,[YIL]) member(X,L). 
max([X],X). 

max([XIL],X) max(L,M),X>M. 

max([XIL],M) 

max(L,M). 

min([X],X). 

min([XIL],X) min(L,M), X<M. 
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min([XIL],M) min(L,M), X>=M. 
delete(X, [],[]). 

delete(X,[XIL],M) !, delete(X,L,M). 
delete(X,[YIL],[YIM]) delete(X,L,M). 
append([],L,L). 

append([XIL],L2,pCIL3]) append(L,L2,L3). 

t* Some variants. */ 

singlemember(X,[XIL]) !. 

singlemember(X,[YIL]) singlemember(X,L). 

deleteone(X, [],[]). 

deleteone(X,[XIL],L) !. 

deleieone(X,[YIL],[YIM]) deleteone(X,L,M). 

/* Writes 60 stars. */ 

stars 

^ ^ ^ ^ ^ 

/* Predicates defined from others, */ 

subset([],L). 

subset([XIL],L2) singlemember(X,L2), subset(L,L2). 

/* Prints out a list with one item per line; useful for lists of lists which can overflow */ 

/* the terminal line. */ 

prettyprint([]) nl,!. 

prettyprint([XIL]) WTite(X), nl, prettyprint(L). 

union([],L,L). 

union(L,[],L). 

union([XILl],L2,L3) singlemember(X,L2), !, union(Ll,L2,L3). 
union([XILl],L2,[XIL3]) unionCLl,L2,L3). 
xbagof(X,P,L);- bag_of(X,P,L),!. 
xbagof(X,P,L):- !. 
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/* Counter for the vpgenerator module, count l(0).is asserted in init_dynamics in the */ 
/* vpscheduler module. */ 

counterl (K):- 
countl(K0), 

del_statement(count 1 (KO)), 

KisK0+ 1, 

add_statement(countl (K)),! . 

/* Counter for the nopathsearch. count2(0). asserted in init_dynamics in vpdcheduler */ 
/* module . */ 

counter2(K):- 
count2(K0), 

del_statement(count2(K0)), 

Kis K0+ 1, 

add_statement(count2(K)),! . 

/* Counter for count_priorevents. count3(0). is asserted in init_dynamics in 
/* vpscheduler module. 

counters 

counts (KO), 

del_statement(countS(KO)), 

KisK0+ 1, 

add_statemen t(countS (K)), ! . 



*/ 

♦/ 



/* Sorts events by start dates. */ 

sortevent([],[]). 

sortevent([event(Sq,E,S,F)ILl],L2):- 

sortevent(Ll,LS), 

insen_event(event(Sq,E,S,F),LS,L2). 

insert_event(event(Sq,E,S,F),[],[event(Sq,E,S,F)]). 

insert_event(event(Sq,E,S,F),[event(Sq2,E2,S2,F2)IL],[event(Sq,E,S,F),event(Sq2, 
E2,S2,F2)IL]);- 
S < S2. 

insen_event(event(Sq,E,S,F),[event(Sq2,E2,S2,F2)IL],[event(Sq2,E2,S2,F2)IL2]):- 
S >= S2, 

insert_event(event(Sq,E,S,F),L,L2). 

/* Sorts month events by month number. */ 

sortmonthevent([],[]). 

sortmonthevent([event(Sq,E,MN)ILl],L2):- 
sonmonthevent(Ll ,LS). 
insertmonthevent(event(Sq,E,MN),LS,L2). 
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insertmonthevent(event(Sq,E,MN),[],[event(Sq,E,MN)]). 

insertmonthevent(event(Sq,E,MN),[event(Sq2,E2,MN2)IL],[event(Sq,E,MN),event(Sq2, 

E2,MN2)IL]):- 

MN<MN2. 

insertmonthevent(event(Sq,E,MN),[event(Sq2,E2,MN2)IL],[event(Sq2,E2,MN2)IL2]):- 
MN >= MN2, 

insertmonthevent(event(Sq,E,MN),L,L2). 

open(CH,OUTFILE):- 

set_channel(outfile(CH),[name=OUlEiLE,mcxie=create]), 

set_output(outfile(CH)) , 

told(CH). 

teU(CH,OUTFILE):- 

set_channel(outfile(CH),[name=OUTFILE,mode=append]), 

set_output(outfile(CH)). 

told(CH) 

close_output(outfile(CH)). 

/* Deletes a set of items from another list . */ 

deleteitems([],L,L). 

deleteitems([XIL],L2,L3) delete(X,L2,L4), deleteitems(L,L4,L3). 
first([XIL],X). 

/* myname developed to use in the compiled version where name is not allowed. */ 

myname(S,L):- 

S is_a var,xlname(S,L). 

myname(S,L):- 

L is_a var,x2name(S,L). 

xlname(X,[F]) 

convert_char(FS,F), concatenate ("”,FS,X) . 
xlname(X,[FIL]) 

convert_char(FS,F), xlname(Xl,L), concatenate(FS,Xl,X) . 
x2name(S,[N]) 

string_length(S,l), conven_char(S,N) . 
x2name(S,[NINL]) 

string_length(S,LS), substring(S,l,l,Sl), convert_char(Sl,N), 
substring(S,2,LS,S2), x2name(S2,NL) . 

endmod /* module vputilities */ . 
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VPSCHEDWRITER MODULE 

This module contains the functions necessary to print the schedule information, in 

columnar format, to the screen and the file SCHEDULE.pro . 

module vpschedwriter . 

export( eventprinter / 1). 

knport( number_to_month / 3, eventcode / 2, daynumber_to_date / 2, open / 2, tell / 2, 
told /I). 

global (status,trialperiod,prerequisite,event, 

ntpi,pre_mrci,mrci,natops,commandjeady_alert,pre_ntpi, 
jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
monday,tuesday,wednesday,thursday,friday,saturday,sunday,weekend, 
tr 1 a, tr 1 b ,tr 1 c ,e wp ,e wn ,en ,e wc ,ewm ,ec,d V 1 ,dr 1 ,ds 1 ,tr 1 ,dsO , 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

/* Writes in columnar form the schedule given a list with month numbers. */ 

eventprinter(LIST) 

eventprinter2(LIST),!. 

eventprinter2([XIL]) 

structure(X,list,[event,Sq,INSP,Start,Finish]), 
write(Sq),write_tab(6), 
eventcode(INSP,EVTNAME), 
write(EVTNAME),write_tab( 1 8), 
daynumber_to_date(Start,[SD,SM,SY]), 
write(SD),write_tab(2 1 ), 
write(SM),write_tab(25), 
write(SY),write_tab(30), 
daynumber_to_date(Finish,[FD,FM,FY]), 
write(FD),write_tab(33), 
write(FM),write_tab(37), 
write(FY), nl, 
eventprinter2(L) , ! . 

eventprinter2(X) 

writeC'Input to eventprinter was in wrong format."),nl, 
write(X),nl,!. 

endmod /* module vpschedwriter */ . 
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VPGENERATOR MODULE 

This module generates all the possible trialperiods for each of the events for the 
schedule period. It was written by LCDR Hutson in C-Prolog and has been converted to 
run in M-prolog. 



module vpgenerator. 

export (trialperiod / 3, generate_trialperiods / 0). 

import (eventnames / 1, member / 2, yearbegin / 1, holiday / 3, daynumber_to_date / 2, 
daysofmonth / 2, counterl / 1, countl / 1, date_calc / 3, day_of_week /2, yearend / 1). 

global (jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec, 
status, trialperiod, prerequisite, 

trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 

vp9,vpl9,vp40,vp46,vp47,vp48,vp50, 

monday,tuesday,wednesday,thursday,fhday, Saturday ,sunday,weekend). 

/*$eject*/ 

body. 



dynamic(trialperiod/3). 



/* Driver for this program. 
generate_trialperiods: - 

writeC'Generating possible inspection periods.. .."),nl,fail. 



generate_trialperiod s: - 
eventnames(EN), 
member(X,EN), 
genera te_readies(X), 
generate_weapevals(X), 
generate_natops(X), 
generate_ore_weapevals(X), 
generate_ore_command(X), ! . 



*! 
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/* The ready-alert periods are generated. */ 

generate_readies(Eventname) 

Eventname = trla, 

yearbegin(B), 

calc_stan(B,0,S), 

daynumber_to_date(S,[Day,Month,Year]), 

Day = 1, 

daysofmonth(Month,D), 
calc_finish(S ,D,F), 

add_statement(tri^period(tr 1 ,S ,F),bottom), 

counterl(K), 

fail . 

generate_readies(Eventname):- 

trialperiod(tr 1 • 

/* Pre-NTPI and NTPI trialperiods. */ 

generate_weapevals(Eventname) 

(Eventname = ewp; 

Evenmame = ewn), 
yearbegin(B), 

next_safedaynumber(2,B.0,S), 

calc_finish(S,2,F), 

safeperiod(S,F), 

add_statement(trialperiod (Eventname, S,F), bottom), 
counter 1(K), 
fail . 

generate_weapevals(Eventname):- 
tri al peri od(evvp , 
trialperiod(e wn,_,_), ! . 

/* NATOPS periods are generated. */ 

generate_natops(Eventname):- 
Eventname = en, 
yearbegin(B), 

next_s^emonday_daynum(B,0,S), 

calc_finish(S,12,F), 

safeperiod_withweekends(S,F), 

add_statement(trialperiod(en,S,F),bottom), 

counter 1(K), 

fail . 

generate_natops(Eventname):- 
trialperiod(en,_,_), ! . 

/* pre_MRCl and MRCl periods. */ 

generaie_ore_weapevals(Eventname):- 
(Eventname = ewe; 
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Eventname = ewm), 
yearbegin(B), 

next_safedaynumber(4,B,0,S), 

calc_finish(S,4,F), 

safeperiod(S,F), 

add_statement(trialperiod(Eventname,S,F), bottom), 
counter 1(K), 
fail . 

generate_ore_weapevals(Evenmame):- 
trialperiod(ewc, , 
tria]period(ewm,_,_), ! . 

/* Cl periods are generated. */ 

generate_ore_command(Evenmame):- 

yearbegin(B), 

next_safemonday_daynum(B,0,S), 

calc_finish(S,5,F), 

safeperiod(S,F), 

add_statement(trialperiod(ec,S,F), bottom), 
counter 1(K), 
fail . 

/* Produces a final count of the number of trialperiods generated. */ 

generate_ore_command(Eventname);- 
trialperiod(ec,_,_) , ! , 
countl(N), 
write(N), 

del_statement(countl(N)), 
add_statement(countl(0)), 
uTite(" Trial Periods Generated."),nl,!. 

/* Based on duration of the inspection outputs the next date, discarding holidays */ 
/* and weekends. */ 

next_safedaynumber(Duration,DayNumberIn,Delay,DayNumberOut):- 
Duration = 2, 

date_calc(DayNumberIn,Delay,DayNumberOut), 
day_of_week(DayNumberOut,Day), 
not(Day = friday), 
yearend(End), 

DayNumberOut < End, 
safedaynumber(DayNumberOut). 



90 



next_safedayn umber (Duration, DayNumberln, Delay .DayNumberOut):- 
Duration = 4, 

date_calc(DayNumberIn, Delay ,DayNumberOut), 
day_of_week(DayNumberC>ut,Day), 

(Day = monday; 

Day = tuesday), 
yearend(End), 

DayNumberOut < End, 
safedaynumber(DayNumberOut) . 

next_safedaynumber (Duration, DayNumberIn,Delay ,DayNumberOut):- 
Delay2 is Delay + 1, 

P is DayNumberIn + Delay2, 
yearend(End), 

P < End, 

next_safedaynumber(Duration,DayNumberIn,Delay2,DayNumberOut). 

/* Computes a non-holiday monday to start an inspection. */ 

next_safemonday_daynum(DayNumberIn,Delay,DayNumberOut):- 

date_calc(DayNumberIn,Delay,DayNumberOut), 

yearend(End), 

DayNumberOut < End, 
safemonday(DayNumberOut). 

next_safemonday_daynum(DayNumberIn,Delay,DayNumberOut):- 
Delay2 is Delay + 1, 

date_calc(DayNumberIn,Delay2,ProspectiveDayNumber), 

yearend(End), 

ProspectiveDayNumber < End, 

next_safemonday_daynum(DayNumberIn,Delay2, DayNumberOut). 

/* Verifies monday is safe. */ 

safemonday(DayNumber):- 

day_of_week(DayNumber,Day), 

Day = monday, 

not(holiday(DayNumber,Day,Holiday_name)). 

/* Verifies inspection period is not interrupted by a weekend or holiday. */ 

safeperiod(Start,Finish):- 
Start = Finish,!. 

safeperiod(Start,Finish):- 
D is Stan + 1, 
safedaynumber(D), 
safeperiod(D,Finish). 
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f* Permits exclusion of weekends with holidays since impratical to schedule a two */ 

/* week event over a holiday period anyway. */ 

safeperiod_withweekends(Start,Finish):- 
Start = Finish,!. 

safeperiod_withweekends(S tart, Finish) ; - 
D is Start + 1, 
day_of_week(D,Day), 
not(holiday(D,Day,Holiday_name)), 
safeperiod_withweekends(D,FinishX 

safedaynumber(DayNumber):- 

day_of_week(DayNumber,Day), 

not(weekend(Day)), 

not(holiday(DayNumber,Day,Holiday_name)), 

/* Calculates start of event regardless of weekends or holidays. */ 

calc_start(BasedayNumber,Delay,Start):- 
Start is BasedayNumber + Delay, 
yearend(End), 

Start < End + 31. 

calc_start(B asedayN umber , Delay ,S tart) : - 
Delay2 is Delay + 1 , 

P is BasedayNumber + Delay2, 
yearend(End), 

P < End + 31, /* Provides ready in case overlap with nextyear */ 

calc_start(BasedayNumber,Delay2,Start). 

/* Calculates finish of event. */ 

calc_finish(Start,Duration,Finish):- 
Days is Duration - 1, 
date_calc(Start,Days,Finish). 

endmod /* module vpgenerator */. 
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VPCALENDAR MODULE 

This module contains all the various calendar functions to convert from one form of 
representing a date to another. It was written by LCDR Hutson in C-prolog and has been 
converted to run in M-Prolog. A new rule was added to daynumbertodate to handle leap 
year correctly. 



module vpcalendar. 

import (abs / 2). 

export (day_of_week /2, holiday / 3, difference_between_dates2 / 3, datetodaynumber / 2, 
daysof month /2, date_calc / 3, daynumber_to_date / 2 ). 

global (status, trialperiod, prerequisite, 

jan,feb,mar,apr,mayJun,jul,aug,sep,oct,nov,dec, 
daysofmonth /2, date_calc / 3, daynumber_to_date / 2 ). 
monday,tuesday,wednesday,thursday,friday,saturday,sunday,weekend, 
trla,trlb,trlc,ewp,ewn,en,ewc,ewm,ec,dvl,drl,dsl,trl,dsO, 
vp9,vpl9,vp40,vp46,vp47,vp48,vp50). 

/*$eject*/ 

body. 

/* Determines day of week */ 

day_of_week(Day N umber , Day ) : - 
X is DayNumber mod 7, 
daymod(Day,X). 

/* Computes the number of days difference between two dates. */ 

difference_between_dates(DatelT>ate2,Difference)> 
datetodaynumber(Date 1 ,Daynumber 1 ), 
datetodaynumber(Date2,Daynumber2), 

X is Daynumberl - Daynumber2, 
abs(X,Difference). 

difference_between_dates2(DayNumberl,DayNumber2,Difference):- 
X is DayNumberl - DayNumber2, 
abs(X ,bifference) . 
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/* Uses 1600 as base date for ease of Gregorian correction. */ 

datetodaynumber([Monthday, Month, Year], Daynumber):- 
Diff is Year - 1600, 

N is (Diff*365)+(Diff div 4)+(Diff div 400)-(Diff div 100) + 1, 
days_so_far([Monthday,Month,Year],Days), 

Daynumber is N + Days. 

day s_so_far( [Monthday , Month, Y ear] ,Day s) : - 
leapyear(Year), 

(Month = jan ; Month = feb), 
daysuntilmonth(Month,Days 1 ), ! , 

Days is Daysl + Monthday - 1 . 

days_so_far( [Monthday ,Month,Year],Days):- 
leapyear(Y ear), 

not( (Month = jan ; Month = feb)), 
daysuntilmonth(Month,Days 1 ), ! , 

Days is Daysl + Monthday . 

day s_so_f ar( [Monthday , Month, Y ear] ,Day s) : - 
daysuntilmonth(Month,Days 1 ),! , 

Days is Daysl + Monthday. 

leapyear(Y ear):- 

X is Year mod 400, 

X = 0,!. 

leapyear(Y ear):- 

X is Year mod 100, 
not(X = 0), 

Yis Year mod4, Y = 0,!. 

/* Computes date after adding a positive or negative number of days */ 

date_calc(DayNumberIn,Days,DayNumberOui):- 
DayNumberOut is Days + DayNumberIn,!. 

date_calc2(DateIn,Days,DateOut):- 

datetodaynumber(DateIn,Daynumber), 

Daycount is Days + Daynumber, 
daynumber_to_date(Daycount,DateOut),!. 
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/* receives daynumber representing the nth day since 01 Jan 1600 and returns a date. */ 

daynumber_to_date(DayCount,[Monthday,W,Year]):- 
Year is 1600 + (DayCount div 365), 

Diffis Year - 1600, 

N is (Diff*365)+(Diff div 4)+(Diff div 400)-(Diff div 100) + 1, 
not(N >= DayCount), 
notQeapyearO" ear)). 

Days is DayCount - N, 
daysuntilmonth(X,Y), 

Y >= Days, 
premonth(W,X),!, 
daysuntilmonth(W,Z), 

Monthday is Days - Z,!. 

daynumber_to_date(DayCount,[Monthday,W,Year]):- 
Year is 1600 + (DayCount div 365), 

Diff is Year - 1600, 

N is (Diff*365)+(Diff div 4)+(Diff div 400)-(Diff div 100) + 1, 
not(N > DayCount), 
leapyear(Y ear). 

Days is DayCount - N + 1, 

Days > 60, 

daysuntilmonth(X,Y), 

Y >= Days, 
premonth(W,X), ! , 
daysuntilmonth(W,Z), 

Monthday is Days - Z - 1,!. 

/* Handles the leap year jan and feb conversions, */ 

daynumber_to_date(DayCount,[Monthday,W,Year]):- 
Year is 1600 + (DayCount div 365), 

Diff is Year - 1600, 

N is (Diff*365)+(Diff div 4)+(Diff div 400)-(Diff div 100) + 1, 
not(N > DayCount), 
leapyear(Y ear). 

Days is DayCount - N + 1 , 
lpyrdaysuntilmonth(X,Y), 

Y >= Days, 
premonth(W,X),!, 
daysuntilmonth(W,Z), 

Monthday is Days - Z ,!. 
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daynumber_to_dateODayCount,[Monthday,W,Year]):- 
Yearl is 1600 + (DayCount div 365), 

Diffis Yearl - 1600, 

N is (Diff*365)+(Diff div 4)+(Diff div 400)-(Diff div 100) + 1, 

N >= DayCount, 

Year is Yearl - 1, 

Diff2 is Year - 1600, 

N2 is (Diff2*365)+(Diff2 div 4)+(Diff2 div 400)-(Diff2 div 100)+ 
notOeapyear(Y ear)). 

Days is DayCount - N2, 
daysuntilmonth(X,Y), 

Y >= Days, 
premonth (W,X), ! , 
daysuntilmon th(W,Z) , 

Monthday is Days - Z,!. 

daynumber_to_date(DayCount,[Monthday,W,Year]):- 
Yearl is 1600 + (DayCount div 365), 

Diffis Yearl - 1600, 

N is (Diff*365)+(Diff div 4)+(Diff div 400)-(Diff div 100) + 1, 

N >= DayCount, 

Year is Yearl - 1, 

Diff2 is Year - 1600, 

N2 is (Diff2*365)+(Diff2 div 4)+(Diff2 div 400)-(Diff2 div 100)+ 
leapyearfY ear). 

Days is DayCount - N2 + 1, 
daysuntilmon th(X,Y), 

Y >= Days-1, 
premonth (W,X),!, 
daysuntilmonth(W,Z), 

Monthday is Days - Z - 1,!. 

holiday(Daynumber,Day,Holiday_name):- 
daynumber_to_date(Daynumber,Date), 
holiday _day(Daie,Day,Holiday_nameX! • 

holiday _day([Date_day ,Month,Year],Day ,Holiday_name):- 
noi(holiday_ffee_month(Monih)), 

Day = monday, 

which_monday(Date_day,Monday_position), 
monday_holiday(Monday_position,Month,Holiday_name),! . 

holiday_day([Date_day, Month, Year] ,Day ,memorial_day) : - 
Month = may. 

Day = monday, 

Date_day > 24. /* Last Monday in May . */ 

holiday_day([Date_day,Month,Year],Day,ihanksgiving):- 
Month = nov. 

Day = thursday, 

Date_day > 21 . 
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holiday_date([Date_day,Month,Y ear] ,Holiday_name):- 
not(holiday_free_month(Month)), 
day_of_week([Date_day .Month, Year] , Day), 

Day = monday, 

which_monday(Date_day .Monday _position), 
monday_holiday(Monday_position,Month,Holiday_name),! . 

holiday_date([Date_day,Month,Year],memorial_day):- 
Month = may, 

day_of_week([Date_day,Month,Year],Day), 

Day = monday, 

Date_day > 24, ! . 

holiday_date( [Date_day ,Mon th, Y ear] .thanksgi ving) 

Month = nov, 

day_of_week([Date_day, Month, Y ear] .Day), 

Day = thursday, 

Date_day >21,! . 

/* Holidays */ 

holiday_date([ 1 ,jan,Year],new_years). 
holiday_date( [4 ,j ul, Y ear] ,independence_day) . 
holiday_date([ 1 1 ,nov,Y ear] ,veterans_day). 
holiday _date([25 ,dec. Year] .Christmas). 
holiday_day([4,jul .Year], Day, independence_day):- ! . 
holiday_day([l,jan,Year],Day,new_years) 1. 
holiday_day([l l,nov,Year],Day,veterans_day);- L 
holiday_day([25,dec,Year], Day .Christmas):- !. 

which_monday(Date_day,Monday_position):- 
Date_day < 8, Monday_position is 1. 

which_monday(Date_day,Monday_position):- 

Date_day > 7, Date_day < 15, Monday_position is 2. 

which_monday(Date_day,Monday_position):- 

Date_day > 14,Date_day < 22, Monday _position is 3. 

which_monday(Date_day,Monday_position):- 

Date_day > 21,Date_day < 29, Monday_position is 4. 

which_monday(Date_day,Monday_position):- 

Date_day > 28,Date_day <=31, Monday_position is 5. 

/* check to see if day is part of weekend */ 

weekend(saturday). 

weekend(sunday). 
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monday_holiday(3,jan,martin_luther_king) . 
monday_holiday(3,feb,washingtons_bday). 
monday_holiday( 1 ,sep,labor_day). 
monday_holiday (2 ,oct,columbu s_day) . 

daysofmonth(jan,3 1 ). 
daysofmonth(feb,28). 
daysofmonth(mar,3 1 ). 
day sofmonth(apr,30) . 
daysofmonth(may,3 1). 
daysofmonth(jun,30). 
daysofmonth0ul,31). 
daysofmonth(aug,3 1 ). 
daysofmonth(sep,30). 
daysofmonth(oct,3 1 ). 
day sofmon th (nov,30) . 
daysofmonth(dec,3 1 ). 

daymod(sunday,2). 

daymod(monday,3). 

daymod(tuesday ,4) . 

daymod(wednesday,5). 

daymod(thursday,6). 

daymod(friday,0). 

daymod(saturday, 1 ). 

premonth (j an, feb). 
premonth(feb,mar). 
premonth(mar,apr). 
pre mon th (apr ,may) . 
premonth(may,jun). 
premonth (jun,jul). 
premonth (jul,aug). 
premonth(aug,sep). 
premonth(sep,oct). 
premonth(oct,nov). 
premonth(nov,dec). 
premon th (dec ,j an) . 

daysuntilmonth(jan,0) . 
daysuntilmonth(feb,31) . 
daysuntilmonth(mar,59) . 
daysuntilmonth(apr,90) . 
daysuntilmonth(may,120) . 
daysuntilmonth(jun,151) . 
daysuntilmonth(jul,181) . 
daysuntilmonth(aug,212) . 
daysuntilmonth(sep,243) . 
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daysuntilmonth(oct,273) . 
daysuntilmonth(nov,304) . 
daysuntilmonth(dec,334) . 
daysuntilmonth(jan,365) . 

/* Help to handle leap year jan and feb. 

Ipyrdaysuntilmonth(jan,0) . 
lpyrdaysuntilmonth(feb,31) • 
lpyrdaysuntilmonth(mar,60) . 
lpyrdaysuntilmonth(apr,91) . 

t* HOLIDAYS 

holiday_free_month(mar) . 
holiday_free_month(apr) . 
holiday_free_month(jun) . 
holiday_free_month(aug) . 

endmod /* module vpcalendar */. 



/* added if premonth is dec */ 

*1 



*/ 
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APPENDIX B - SAMPLE INPUT DATA FILE 



The following is an example of what a complete Database.pro file contains after the 
vpinterface module is completed. The information in this same database file could be 
modified to make subsequent runs. If it was not modified, the program would run without 
computing any of the information during stage I, because this is a complete database. 



DATABASE.pro File 



yearbegindate([ 1 ,oct, 1985]) 
yearenddate([30,sep,1986]) 

prioreventdate(vp9,ewp,[ 1 1 ,apr, 1985] ,[28,feb, 1985]) 
prioreventdate(vp40,ewp,[l l,apr,1985],[28,oct,1984]) 
prioreventdate(vp47,ewp,[ll,apr,1985],[28,aug,1985]) 
prioreventdate(vp50,ewp,[ 1 1 ,apr,1985],[28,feb, 1985]) 
prioreventdate(vp9,ewn,[ 1 1 ,apr, 1985] ,[28,mar, 1985]) 
prioreventdate(vp40,ewn,[ 1 1 ,apr, 1 985], [28 ,nov, 1984]) 
prioreventdate(vp46,ewn,[l l,apr,1985],[28,oct,1984]) 
prioreventdate(vp47,ewn,[l l,apr,l 985], [28,sep, 1985]) 
prioreventdate(vp50,ewn,[ 1 1 ,apr,l 985] ,[28,mar,l 985]) 
prioreventdate(vp9,en,[23,jul, 1985], [30,apr, 1985]) 
prioreventdate(vpl9,en,[23,jul, 1985], [30,sep, 1985]) 
prioreventdate(vp40,en,[23,jul, 1985], [30Jan, 1985]) 
prioreventdate(vp46,en,[23,jul,l 985], [30,dec, 1984]) 
prioreventdate(vp47,en,[23,jul, 1985], [30,aug,l 985]) 
prioreventdate(vp48,en,[23,jul, 1985], [30,jul, 1985]) 
prioreventdate(vp9,ewc,[15,aug, 1985], [19,jan, 1985]) 
prioreventdate(vp9,ewm,[19,sep, 1985], [23,feb, 1985]) 
prioreventdate(vpl9,trla,[01,sep,1985],[15,oct,1985]) 
prioreventdate(vp40,ewc,[ 1 5,aug, 1985],[ l9,nov, 1 984]) 
prioreventdate(vp40,ewm,[19,sep, 1985], [23 ,dec, 1984]) 
prioreventdate(vp46, ewe, [15,aug, 1985], [ 19, sep, 1984]) 
prioreventdate(vp46,ewm,[19,sep,1985],[23,oct,1984]) 
prioreventdate(vp47,ewm,[01, sep, 1985], [25,apr, 1984]) 
prioreventdate(vp50,ewc,[01,aug,1985],[25,ftb,1985]) 
prioreventdate(vp50,ewm,[01, sep, 1985], [25,mar, 1985]) 
prerequisitedate(vp9,ds0,[ll,dec,1985],[l0,jan,1986]) 
prerequisitedate(vp9,dvl, [01, jul, 1986], [30,sep, 1986]) 
prerequisitedate(vp9,dr 1 ,[ 1 6,nov, 1986], [05,may, 1987] ) 
prerequisitedate(vp9,dsl,[06,may,l987],[05,apr,1987]) 
prerequisitedate(vpl9,ds0,[l l,mar,1985],[10,apr,1985]) 
prerequisitedate(vpl 9,dv 1 ,[ 1 5,aug, 1985],[ 1 5,nov,1985]) 
prerequisitedate(vpl 9,drl,[10,feb, 1986], [10,aug, 1986]) 
prerequisitedate(vpl9,dsl,[l l,aug, 1986], [10,sep, 1986]) 
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prerequisitedate(vp40,ds0,[ 1 1 ,sep, 1 9 85] ,[ 1 0,oct, 1985]) 

prerequisitedate(vp40,dvl,[01,apr,1986],[30,jun,1986]) 

prerequisitedate(vp40,drl,[10,aug,1986],[10,feb,1987]) 

prerequisitedate(vp40,ds l,[ll,feb,1987],[l 0,mar, 1987]) 

prerequisitedate(vp46,ds0,[ 1 1 ,aug, 1 985] ,[ 1 0,sep, 1985]) 

prerequisitedate(vp46,dv 1 ,[01 ,mar, 1986] ,[3 1 ,may , 1 986]) 

prerequisitedate(vp46,drl, [lOJul, 1986], [lOJan, 1987]) 

prerequisitedate(vp46,dsl ,[ 1 1 Jan, 1 987] ,[ 1 0,feb, 1 987]) 

prerequisitedate(vp47,ds0,[ll,feb,1985],[10,mar,1985]) 

prerequisitedate(vp47 ,dv 1 ,[0 1 ,sep, 1 985] ,[30,nov, 1985]) 

prerequisitedate(vp47,drl ,[ lOJan, 1986],[ lOjul, 1986]) 

prerequisitedate(vp47,dsl,[l ljul, 1986], [10,aug, 1986]) 

prerequisitedate(vp48 ,d sO,[ 1 1 Jan, 1 98 5] ,[ 1 0,feb, 1985]) 

prerequisitedate(vp48,dv 1 ,[0 1 ,aug, 1 985] , [3 1 ,oct, 1985]) 

prerequisitedate(vp48,drl,[10,dec, 1985], [lOJun, 1986]) 

prerequisitedate(vp48,dsl,[lljun,1986],[10,jul,1986]) 

prerequisitedate(vp50,ds0,[ 1 1 Jan, 1986],[10,feb,1986]) 

prerequisitedate(vp50,dv 1 ,[0 1 ,aug, 1986],[3 1 ,oct, 1986] ) 

prerequisitedate(vp50,drl,[10,dec,1986],[10,jun,1987]) 

prerequisitedate(vp50,dsl,[l l,jun,1987],[10,jul,1987]) 

earmark(vp9,ewn,[28,mar, 1986]) 

eannark(vp40,ewn,[28,nov,1985]) 

earmark(vp46,ewn,[28,oct,1985]) 

earmark(vp47,ewn,[28,sep,1986]) 

earmark(vp50,ewn,[28,mar,1986]) 

earmark(vp9,en,[30,apr,1986]) 

earmark(vpl9,en,[30,sep,1986]) 

earmark(vp40,en,[30Jan, 1986]) 

earmark(vp46,en,[30,dec,1985]) 

earmark(vp47,en,[30,aug,1986]) 

earmark(vp48,en,[30Jul,1986]) 

earmark(vp50,en,[30,may, 1 986] ) 

earmark(vp9 ,e wc ,[ 1 9 J ul, 1 986] ) 

earmark(vp9,ewm,[23,aug,1986]) 

earmark(vp40,ewc,[19,may,1986]) 

earmark(vp40,ewm,[23Jun,1986]) 

earmark(vp46,ewc,[ 1 9,mar, 1986] ) 

earmark(vp46,ewm,[23,apr,1986]) 

earmark(vp47,ewm,t25,c>ct,1985]) 

earmark(vp50,ewc,[25,aug,1986]) 

earmark(vp50,ewni,[25,sep, 1986]) 

trialperi(^(trl , 140893, 140923) 

trialpericxl(tr 1 ,140924, 1 40953) 

trialperiod(tr 1 , 140954, 1 40984) 

tria1period(trl,140985,141015) 

trialperiod(trl, 141016, 141043) 

trialperiod(trl , 1 4 1 044, 1 4 1 074^ 

trialperiodC tr 1 , 1 4 1 075 , 1 4 1 1 04) 

trialperiod(trl,141 105,141 135) 

trialperiod(tr 1 , 1 4 1 1 36, 14 1 1 65) 

trialperiod(trl,14l 166,141 196) 
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trialperiod(trl , 141 197, 14 1227) 
trialperiod(tr 1 , 14 1 228, 14 1 257) 
trialperiod(tr 1 ,141 258, 1 41288) 
trialperiod(tr 1 ,141289, 141318) 
trialperiod(trl , 14 1 3 19, 14 1 349) 
trialperiod(tr 1 , 1 4 1 3 50, 1 4 1 3 80) 
trialperiod(ewp, 1 4089 3, 1 40894) 
trialperiod(ewp, 1 40894, 1 40895) 
trialperiod(ewp, 1 40895 , 1 40896) 
trialperiod(ewp, 1 40899, 1 40900) 
trialperiod(ewp, 140900, 1 4090 1 ) 
trialperiod(ewp, 140901 , 1 40902) 
trialperiod(ewp, 1 40902, 1 40903) 
trialperiod(ewp,140907, 140908) 
trialperiod(ewp, 1 40908, 1 40909) 
trialperiod(ewp, 1 40909, 1 409 1 0) 
trialperiod(ewp,140913,l 409 1 4) 
trialperiod(ewp, 1 409 14,1 409 15) 
trialperiod(e wp, 1 409 15,1 409 1 6) 
trialperiod(ewp, 1 409 1 6, 1 409 17) 
trialperiod(ewp, 1 40920, 1 40921 ) 
trialperiod(ewp, 1 4092 1 , 1 40922) 
trialperiod(ewp, 140922, 140923) 
tri al period(ewp , 1 40923 , 1 40924) 
trial period(ewp, 1 40927, 140928) 
trial period (ewp , 1 40928 , 1 40929) 
trialperiod(ewp, 140929, 140930) 
trialperiod(ewp, 140930, 14093 1 ) 
trialperiod(ewp,140935, 140936) 
trialperiod(e wp ,140936,140937) 
trialperiod(ewp, 140937, 140938) 
trialperiod(ewp, 1 4094 1 , 1 40942) 
trialperiod(ewp, 140942, 140943) 
tri al period(e wp , 1 40943 , 1 40944) 
tri al peri od(ewp, 140944, 140945) 
trialperiod(ewp, 140948, 140949) 
trialperiod (e wp , 1 40949 , 1 40950) 
tri alperiod (ewp , 1 4095 5 , 1 40956) 
trialperiod(ewp, 140956, 140957) 
trialperiod(ewp, 140957, 140958) 
trialperiod(ewp, 1 40958, 1 40959) 
trialperiod(ewp, 1 40962, 1 40963) 
trialperiod(ewp, 1 40963, 140964) 
trialperiod(ewp, 140964, 140965) 
trialperiod(ewp, 1 40965, 1 40966) 
trialperiod (ewp, 1 40969 , 1 4097 0) 
trialperiod(ewp, 1 40970, 1 4097 1 ) 
trialperiod(ewp, 1 4097 1 , 1 40972) 
trialperiod(ewp, 140972, 140973) 
trialperiod (ewp, 1 40976, 1 40977) 
trialperiod(ewp, 1 40979 , 1 40980) 
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trialperiod(ewp, 1 4098 3, 1 40984) 
trialperiod(ewp, 140986, 1 40987) 
tri alpericxi(ewp , 1 40990, 1 4099 1 ) 
trialperiod(e wp , 1 4099 1 , 1 40992) 
trialperiod(ewp , 1 40992, 1 40993 ) 
trialperiod(ewp, 1 40993, 1 40994) 
trialpericxi(ewp, 1 40997, 1 40998) 
tri alperiod(ewp, 140998, 140999) 
trialperiod(ewp, 1 40999, 1 4 1 000) 
trialpericxi(ewp, 1 4 1 000, 1 4 1 00 1 ) 
trialperiod(ewp, 141005, 141006) 
trialperiod(ewp, 141 006, 141 007 ) 
trialperiod(ewp, 1 4 1 007, 1 4 1 008) 
trialperiod(ewp , 1 4 1 0 1 1 , 1 4 1 0 1 2) 
trialperiod(ewp , 1 4 1 0 1 2, 1 4 1 0 1 3) 
trialpericxl(ewp , 1 4 1 0 1 3 , 1 4 1 0 1 4) 
trialperiod(ewp,141014, 141015) 
trialperiod(ewp, 14101 8, 141019) 
trialpericxl(ewp, 141019,141 020) 
trial period (ewp ,141020, 141 021) 
trialperiod(ewp ,141 02 1,141022) 
trialperiod(ewp, 1 4 1 025, 1 41026) 
trialperiod(ewp, 141 026, 141 027 ) 
trial period (ewp, 141 027 ,141 028) 
trialperiod(ewp, 141028, 141029) 
trialperiod(ewp, 141033, 141034) 
trialperiod(ewp, 14 1 034, 141035) 
trialperiod(ewp, 1 4 1 035 , 1 4 1036) 
trialperiod(ewp, 14 1039, 1 41040) 
trialperiod(e wp, 141 040, 141041) 
trialperiod(e wp, 141 04 1,141 042) 
trialperiod(ewp, 141 042, 141043) 
trial period(ewp, 141046, 141 047) 
trial period(ewp, 141 047 ,141048) 
trial period(ewp, 1 4 1048 , 1 4 1 049) 
trialperiod(ewp, 141049, 141050) 
trialperiod(ewp,141053,141054) 
tri alperiod(ewp, 141054, 14 1055) 
trialperiod(ewp, 141055, 141056) 
trialperiod(ewp, 1 4 1 056, 14 1 057 ) 
trialperiod(ewp, 141 060, 141061) 
trial period(ewp, 141061,141 062) 
trialperiod(ewp, 141 062, 141063) 
trial period(e wp, 141063, 141064) 
trialperiod(ewp, 141067, 141068) 
trial period (ewp, 141 068 ,141 069) 
trialperiod(ewp, 141 069, 14 1 070) 
trialperiod(ewp, 141 070, 141 071) 
trialperiod(e wp, 141 074, 141 075) 
trialperiod(ewp, 141075, 141076) 
trialperiod(ewp, 141076, 14 1077) 
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trialperiod(ewp, 141077, 141078) 
trialpericxi(ewp, 1 4 1 08 1 , 1 4 1 082) 
trialperiod(ewp, 1 4 1 082, 1 4 1 08 3) 
trialperiod(e wp ,141083,141084) 
trialperiod(ewp,141084, 141085) 
trialperiod(ewp, 141 08 8, 141 089) 
trialperiod(ewp, 1 4 1 089, 1 4 1 090) 
triaIperiod(e wp, 141090, 141091) 
tri alperiod (e wp, 1 4 1 09 1 , 1 4 1 092) 
trialpericxi(e wp, 141 095, 141096) 
trialperiod(e wp, 141 096, 141 097 ) 
trialperiod(ewp, 141 097, 141098) 
trialperiod(ewp, 141 098, 141 099) 
trialperiod(ewp,141 102,141 103) 
trialperiod(ewp, 141 103,141 104) 
trialperiod(ewp,141 104,141 105) 
trialperiod(ewp, 1411 05, 1411 06) 
tria]period(ewp,141 109,1411 10) 
tria]period(ewp, 141110, 141111) 
trialperiod(ewp, 141111,141112) 
trialperiod(ewp, 141112,141113) 
trialperiod(ewp,141 1 16,141 1 17) 
trialperiod(ewp, 14 1 117,141118) 
trialperiod(ewp, 14 1 118,141119) 
trialperiod(ewp,141 1 19,141 120) 
trialperiod(ewp, 141123,1411 24) 
trialperiod(ewp, 141 124,141 125) 
trialperiod(ewp, 141 125,141 126) 
trialperiod(ewp,141 126,141 127) 
trialperiod(ewp, 1 4 1 1 3 1 , 1 4 1 1 32) 
tri alperiod(ewp,141 132,141 133) 
trialperiod(ewp,l 41 133,141 134) 
tri alperiod(ewp, 141 137,141 138) 
trialperiod(ewp, 1 4 1 1 38, 1 4 1 1 39) 
trialperiod(ewp, 141139,1411 40) 
trialperiod(ewp,141 140,141 141) 
trialperiod(ewp,141 144,141 145) 
tria]period(ewp,141 145,141 146) 
tria]period(ewp,141 146,141 147) 
trialperiod(ewp,141 147,141 148) 
trialperiod(ewp, 1 4 1 1 5 1 , 1 4 1 1 52) 
trialperiod(ewp,141 152,141 153) 
tria]peri<xl(ewp,141 153,141 154) 
trialperiod(ewp,141 154,141 155) 
trialperiod(ewp, 141 158,141 159) 
trialperiod(ewp,141 159,141 160) 
trialperiod(ewp,141 160,141 161) 
tri alperiod (ewp, 141161,141162) 
trialperiod(ewp,141 165,141 166) 
trialperiod(ewp,141 166,141 167) 
trialperiod(ewp,141 167,141 168) 
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tria]period(ewp,141 172,141 173) 
trialpericxi(ewp, 141 173,141 174) 
trialperiod(ewp,141 174, 141 175) 
trialperiod(ewp,141175,141176) 
trialperiod(ewp, 141 179,141 180) 
trialpericxi(ewp, 141180,141181) 
trialperiod(ewp, 141181,141182) 
trialperiod(ewp, 141 182,141 183) 
trialperiod(ewp,141 186,141 187) 
trialperiod(ewp,141 187,141 188) 
trialperiod(ewp, 141188,141189) 
trialperiod(ewp,141 189,141190) 
trialperiod(ewp,141 193,141 194) 
trialperiod(ewp, 141194,141195) 
trialperiod(ewp,141195,141196) 
trialperiod(ewp,141 196,141 197) 
trialperiod (e wp, 1 4 1 200, 1 4 1 20 1 ) 
trialperiod(ewp, 141 20 1,141 202) 
trialperiod (ewp, 141 202, 141 203) 
trialperiod (ewp, 141 203, 141 204) 
trialperiod(ewp, 14 1 207, 14 1 208) 
trial period (ewp, 141 208, 141 209) 
trial period (ewp, 141 209, 141210) 
trialperiod(ewp,141210,14121 1) 
trialperiod(ewp, 1 4 1 2 1 4, 1 4 1 2 1 5 ) 
trialperiod(ewp, 14 1 2 1 5, 14 1 2 1 6) 
trialperiod (ewp, 1 4 1 2 1 6, 1 4 1 2 1 7) 
trialperiod(ewp,141217,141218) 
trialperiod (ewp, 14 1 22 1 , 1 4 1 222) 
trialperiod(ewp, 14 1222, 14 1 223) 
trialperiod(ewp,14 1223, 14 1 224) 
trialperiod(ewp, 141 224, 141225) 
trialperiod(ewp, 141 229 ,141230) 
trialperiod(ewp, 141230, 141231) 
trial period (ewp, 14 1 231,141 232) 
trialperiod(ewp, 141235, 141236) 
trialperiod (ewp, 141236,141237) 
trialperiod(ewp, 141237, 141 238) 
trialperiod(ewp,141238, 141239) 
trialperiod(ewp,141242,141243) 
trialperiod (ewp, 1 4 1 243, 141 244) 
trialperiod(ewp,14 1 244, 14 1245) 
trialperiod(ewp, 1 4 1 245 , 1 4 1 246) 
trialperiod (ewp, 1 4 1 249, 1 4 1 250) 
trialperiod(ewp, 14 1250, 141251) 
trial period(ewp, 14125 1,141252) 
trial period (e wp, 141252,141 25 3) 
trialperiod(ewp, 1 41256, 141257) 
trialperiod(ewp, 14 1257, 141258) 
trialperiod(ewp, 14 1 258, 14 1259) 
trialperiod(ewp, 1 4 1 259, 1 4 1 260) 
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trialperiod(ewp, 141 263, 1 4 1 264) 
trialperiod(ewp, 1 4 1 264, 14 1 265) 
trialperiod(ewp, 141 265 ,141266) 
tria]period(ewp, 1 4 1 266, 141 267) 
tria]period(ewp, 1 4 127 1 , 1 4 1 272) 
trialperiod(ewp, 1 41272,141273) 
trialperiod(ewp, 14 1 273 , 1 4 1 274) 
trialperiod(e wp, 141 277, 141278) 
trialperiod(e wp, 1 4 1 278 , 1 4 1 279) 
trialperiod(ewp, 1 41279, 141280) 
trialperiod(ewp, 141 280, 141281) 
trialperiod(ewp,141284, 141285) 
trialperiod(ewp,141285, 141286) 
trialperiod(ewp, 1 4 1 28 6, 1 4 1 2 8 7) 
tria]period(ewp,141287, 141288) 
trialperiod(ewp, 141291,141292) 
trialperiod(ewp, 14 1 292, 141293) 
trialperiod(ewp,l 4 1 293, 141 294) 
trialperiod(ewp, 141 294, 141295) 
tria]period(ewp, 141300,141301) 
trialperiodCewp, 141301,141 302) 
trialperiod(ewp,l 41 305, 1 4 1 306) 
trialperiod(ewp, 141306,141307) 
trialperiodCewp, 141 307, 141 308) 
trialperiodCewp, 141308,141 309) 
trialperiodCewp , 1 4 1 3 1 2, 1 4 1 3 1 3) 
trialperiodCewp, 141313,141314) 
trialperiodCewp, 141319,141 320) 
trialperiodCewp, 1 4 1 320, 141321) 
trialperiodCewp,! 4 1321,141 322) 
trialperiodCewp, 1 4 1 322, 14 1 323) 
trialperiodCewp, 141326,141327) 
trialperiodCewp, 1 4 1 327, 1 4 1 328) 
trialperiodCewp, 141328, 141329) 
trialperiodCewp, 141 329, 141 330) 
trialperiodCewp, 1 41333,141334) 
trialperiodCewp, 1413 34, 141335) 
trialperiodCewp, 141 335, 141336) 
trialperiodCewp, 141336,141337) 
trialperiodCewp, 1 41 340, 141341) 
trialperiodCewp, 1 41341,141 342) 
trialperiodCe wn, 1 40893 , 1 40894) 
trialperiodCewn, 1 40894, 1 40895) 
trialperiodCewn, 1 40895, 1 40896) 
trialperiodCewn, 1 40899, 1 40900) 
trialperiodCewn, 1 40900, 1 4090 1 ) 
trialperiodCewn , 1 4090 1 , 1 40902) 
trialperiodCewn , 1 40902, 1 40903) 
trialperiodCewn, 140907, 140908) 
trialperiodCewn, 140908, 140909) 
trialperiodCewn, 1 40909, 1 409 1 0) 



trialpericxi(ewn, 1 409 1 3, 1409 1 4) 
trialperiod(ewn, 1 409 1 4, 1 409 1 5) 
trialperiod(ewn, 1 409 15,1 409 1 6) 
trialperiod(ewn, 1 409 1 6, 1 409 1 7) 
trialperiod(ewn, 1 40920, 1 40921 ) 
trialperiod(ewn, 1 4092 1 , 1 40922) 
trial period (ewn, 1 40922, 1 40923) 
trialperiod(ewn, 1 40923 , 1 40924) 
trialperiod(ewn, 1 40927 , 1 40928) 
trialperiod(ewn, 1 40928, 1 40929) 
trial period(ewn, 1 40929, 1 40930) 
trialperiod(ewn, 1 40930, 1 4093 1 ) 
trialperiod(ewn, 140935, 140936) 
trial period (ewn, 1 40936, 1 40937) 
trialperiod(ewn, 140937, 140938) 
tri alperiod (e wn , 1 4094 1 , 1 40942) 
trialperiod(ewn, 140942, 1 40943) 
trial period(ewn, 1 40943, 1 40944) 
trialperiod(e wn, 1 40944, 1 40945) 
trialperiod(ewn, 140948, 140949) 
trialperiod(ewn, 1 40949, 1 40950) 
trialperiod(ewn, 140955, 140956) 
trialperiod(ewn, 1 40956, 1 40957) 
trial period(ewn, 1 40957, 140958) 
trialperiod(ewn, 1 40958, 1 40959) 
trial period(ewn, 1 40962, 1 40963) 
trialperiod(ewn, 1 40963 , 1 40964) 
trialperiod(ewn, 1 40964, 1 40965) 
trialpericxl(ewn, 1 40965, 1 40966) 
tri alperiod(ewn, 140969, 1 40970) 
trialperiod(ewn, 140970, 140971) 
trialperiod(ewn, 1 4097 1 , 1 40972) 
trial period(ewn, 1 40972, 1 40973) 
trialperiod(ewn, 1 40976, 1 40977) 
trialperiod(ewn, 140979, 140980) 
trialperiod(ewn, 140983, 140984) 
trialperiod(ewn, 1 40986, 140987) 
trial period(ewn, 1 40990, 1 4099 1 ) 
trialperiod(ewn, 1 4099 1 , 1 40992) 
trialpericxl(ewn, 1 40992, 1 40993) 
trial period(ewn, 1 40993, 140994) 
trialperiod(ewn, 140997, 1 40998) 
trialperiod(ewn, 1 40998, 1 40999) 
tri alperiod (ewn, 1 40999, 14 1 000) 
tri alperiod (ewn, 1 4 1 000, 1 4 1 00 1 ) 
trialperiod(ewn, 1 4 1 005, 1 41006) 
trialperiod(ewn,141006,141007) 
trialperiod(ewn,l 4 1007, 141008) 
tri alperiod(ewn, 14101 1,141012) 
trialperiod(ewn,141012,141013) 
trialperiod(ewn,14l0l3,141014) 
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trialperiod(ewn, 141014, 141015) 
trialperiod(ewn, 14101 8, 141019) 
trialperiod(ewn, 1 41019,141 020) 
trialperiod(ewn, 1 4 1 020, 141021) 
trialperiod(ewn, 141 02 1,141 022) 
trialperiod(ewn, 141 025, 141 026) 
trialperiod(ewn, 1 4 1 026, 1 4 1 027) 
trialperiod(ewn, 141 027 ,141028) 
trialperiod(ewn, 1 4 1 028, 141 029) 
trialperiod(ewn, 1 4 1 033, 1 4 1 034) 
trialperiod(ewn, 1 4 1 034, 1 4 1 035) 
trialperiod(ewn, 1 4 1 035, 1 4 1 036) 
trialperiod(ewn, 1 4 1 039, 14 1 040) 
trial period(ewn, 1 4 1 040, 141041) 
trial period(ewn, 141041, 141 042) 
trialperiod (ewn , 1 4 1 042, 1 4 1 043) 
trialperiod(ewn, 1 4 1 046, 14 1 047) 
trialperiod(ewn, 141047, 141048) 
trialperiod (ewn, 141 048, 141 049) 
trialperiod(ewn, 141 049, 141 050) 
trialperiod(ewn,141053,141054) 
trialperiod(ewn, 141054, 141055) 
trialperiod(ewn, 141 055, 14 1056) 
trialperiod(ewn, 141056,141057) 
trialperiod(ewn, 141 060, 141061) 
trialperiod(ewn, 1 4 1 06 1 , 1 4 1 062) 
trialperiod(ewn,14 1062, 14 1063) 
trialperiod(ewn,141063,141064) 
trialperiod(ewn, 141 067 ,141 068) 
trialperiod(e wn, 141 068, 141 069) 
trialperiod (ewn, 141 069, 141070) 
trialperiod(ewn, 1 4 1 070, 1 4 1 07 1 ) 
trialperiod(ewn, 141074, 14 1075) 
trialperiod (ewn, 1 4 1 075, 1 4 1 07 6) 
trialperiod(ewn, 141076, 14 1077) 
trialperiod(ewn,141077,141078) 
trialperiod (ewn,14108 1,1 41082) 
trialperiod(ewn,14 1082, 14 1083) 
trialperiod(ewn,141083,141084) 
trialperiod(ewn, 14 1084, 14 1085) 
trialperiod(ewn,14 1088, 14 1089) 
trialperiod(ewn, 1 4 1 089, 1 4 1 090) 
trialperiod(ewn, 1 4 1 090, 1 4 1 09 1 ) 
trialperiod(ewn , 141 091, 141092) 
trialperiod(ewn, 1 41095, 141096) 
trialperiod(ewn, 1 4 1 096, 1 4 1 097) 
trialperiod(ewn, 14 1097, 141098) 
trialperiod(ewn,141098,141099) 
trialperiod(ewn, 14 1 102, 14 1 103) 
trialperiod (ewn, 141103, 1411 04) 
trialperiod(ewn,l 4 1 1 04, 14 1 105) 
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trialperiod(ewn,141 105,141106) 
trialperiod(ewn,141 109,141 110) 
trialperiod(ewn , 141110,141111) 
trialperiod(ewn,141 1 1 1,1411 12) 
trialperiod(ewn,141 112,141113) 
trialperiod(ewn, 1 4 1 1 1 6, 1 4 1 1 1 7 ) 
trial peri od(ewn, 1 41117,141118) 
trialperiod(ewn,141 1 1 8,141 1 19) 
trialperiod(e wn ,141119,1411 20) 
trialperiod(ewn ,141123,1411 24) 
triaIperiod(ewn,141 124,141 125) 
trialperiod(ewn, 141125,141126) 
trialperiod(ewn, 141 126,141 127) 
trialperiod(ewn, 14 1 1 3 1 , 14 1 1 32) 
trialperiod(ewn, 14 1 1 32, 1 4 1 1 33) 
trialperiod(ewn, 141 133,141 134) 
trialperiod(ewn,141 137,141 138) 
trialperiod(ewn,141 138,141139) 
trialperiod(ewn , 1411 39, 1411 40) 
trial period (ewn, 141 140,141 141) 
trialperiod(ewn,141 144,141 145) 
trialperiod(ewn,141 145,141 146) 
trialperiod(ewn,141 146,141 147) 
trialperiod(ewn,141 147,141 148) 
trialperiod(ewn, 1 41151,141152) 
trialperiod(ewn,141 152,141 153) 
trialperiod(ewn,141 153,141 154) 
trialperiod(e wn, 141154,141155) 
trialperiod(ewn,141 158,141159) 
trialperiod(ewn,141 159,141 160) 
trialperiod(e wn, 141160,141161) 
trialperiod(ewn,141 161,141 162) 
trialperiod(ewn, 1411 65, 1411 66) 
trial period(ewn, 141 166,141167) 
trialperiod(ewn, 141 167,141 168) 
trialperiod(ewn,141 172,141173) 
trialperiod(ewn,141 173,141 174) 
trialperiod(ewn, 141174, 141175) 
trialperiod(ewn,141 175,141 176) 
trialperiod(ewn,141 179,141 180) 
trialperiod(ewn,141 180,141 181) 
trialperiod(ewn, 141 181,141 182) 
trialperiod(ewn, 141 182,141 183) 
trialperiod(ewn,141 186,141187) 
trial period(ewn,141 187,141 188) 
trialperiod(ewn,141 188,141 189) 
trialperiod(ewn, 141 189,141190) 
trialperiod(ewn,141 193,141 194) 
trialperiod(ewn,141 194,141 195) 
trialperiod(ewn,141 195,141196) 
trial period (ewn, 141 196,141 197) 
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trialperiod(e wn, 1 4 1 200, 141201) 
trialperiod (ewn , 1 4 1 20 1 , 1 4 1 202 ) 
trialperiod(e wn, 1 4 1 202, 1 4 1 203) 
trialperiod(ewn,141203, 141204) 
trialperiod (ewn, 1 4 1 207 ,141 208) 
trialperiod(ewn ,1 4 1 208, 1 4 1 209) 
trialperiod(ewn , 1 4 1 209, 1 4 1 2 1 0) 
trialperiod(e wn, 1 41210,141211) 
trialperiod(ewn, 1 4 1 2 1 4, 1 4 1 2 1 5) 
trialperiod(ewn,l 4 1215,141216) 
trialperiod(ewn,141216, 141217) 
trialperiod(ewn , 1 4 1 2 1 7 , 1 4 1 2 1 8 ) 
trialperiod(ewn,l 4 1 22 1 , 1 4 1 222) 
trialperiod(ewn,l 4 1222,141 223) 
trialperiod(ewn,l 4 1 223, 141224) 
trialperiod(ewn,141224, 141225) 
trial period(ewn ,141229, 141 230) 
trialperiod(ewn, 1 41230, 141231) 
trialperiod(e wn , 1 4 1 23 1 , 1 4 1 232) 
trialperiod(ewn,l 4 1 235, 141 236) 
trialperiod(ewn,l 4 1 236, 1 4 1 237) 
trialperiod(ewn,141237, 141238) 
trialperiod(ewn,14 1238, 141 239) 
trialperiod (ewn, 1 4 1 242, 141243) 
trial period (ewn, 1 4 1 243, 1 4 1 244) 
trialperiod (ewn, 1 4 1 244, 141 245) 
trial period (ewn, 1 4 1 245, 141 246) 
trialperiod(ewn,l 4 1 249, 14 1 250) 
trialperiod (ewn, 1 4 1 250, 141251) 
trial period (ewn, 141 25 1,141 252) 
trialperiod(ewn, 1 4 1 252, 1 4 1 253) 
trialperiod(e wn, 14 1 256, 14 1 257) 
trialperiod(ewn,141257, 141258) 
trialperiod(ewn,141258, 141259) 
trialperiod(ewn, 14 1 259, 1 4 1 260) 
trialperiod(ewn, 1 4 1 263, 1 4 1 264) 
trialperiod(ewn, 141264, 141265) 
trialperiod(ewn, 141 265, 141266) 
trialperiod(ewn, 14 1 266, 141 267) 
trial period(ewn, 1 4 1 27 1 , 1 4 1 272) 
trialperiod(ewn, 1 4 1 272, 1 4 1 273) 
trialperiod(ewn, 1 4 1 273, 1 4 1 274) 
trialperiod(ewn, 141 277, 141278) 
trialperiod(ewn, 141 278, 141279) 
trialperiod(ewn, 14 1 279, 141280) 
trialperiod(ewn, 1 4 1 280, 1 4 1 28 1 ) 
trialperiod(ewn, 1 4 1 284, 1 4 1 28 5) 
trial period(ewn,141285, 141286) 
trialperiod(ewn,141286, 141287) 
trialperiod(e wn, 1 4 1 287, 1 4 1 28 8) 
trialperiod(ewn, 14 1 291,141 292) 
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trialperiod(ewn, 1 4 1 292 ,141293) 
trialperiod(ewn , 1 4 1 29 3, 1 4 1 294) 
trialperiod(ewn, 1 4 1 294, 1 4 1 295) 
trialperiod(ewn, 1 4 1 300, 141301) 
trialperiod(ewn,141301,141302) 
trial period(ewn, 1 4 1 305, 1 4 1 306) 
trialperiod (ewn ,141306,141307) 
trialperiod(ewn, 14 1 307, 14 1 308) 
trialperiod(ewn, 14 1 308, 1 4 1 309) 
trialperiod(ewn,141312,141313) 
trialperiod(ewn,141313,141314) 
trialperiod(ewn, 1413 19, 141320) 
trialperiod(ewn, 141320,141321) 
trialperiod(ewn, 141 32 1,141 322) 
trialperiod(ewn, 1 4 1 322, 1 4 1 323) 
trialperiod(ewn, 1 4 1 326, 14 1 327) 
trialperiod(ewn,141327,141328) 
trialperiod(ewn,14 1328, 141329) 
trialperiod(ewn, 1 4 1 329, 141 330) 
trial period(ewn, 141333, 141334) 
trialperiod(ewn, 14 1334, 141335) 
trialperiod(ewn, 1 4 1 335, 1 4 1 336) 
trialperiod(ewn, 1 41336,141337) 
trialperiod(ewn, 141 340, 141341) 
trialperiod(ewn, 14 1 341 , 141 342) 
trialperiod (en, 1 409 1 3, 140924) 
trialperiod (en , 1 40920, 1 4093 1 ) 
trialperiod(en, 140955, 140966) 
trialperiod(en, 140962, 140973) 
trialperiod(en, 1 40990, 141001) 
trialperiod(en, 14101 1,141022) 
trialperiod(en,141018,141029) 
trialperiod(en, 1 4 1 039, 141050) 
trialperiod(en, 141046, 141057) 
trialperiod(en,141053, 141064) 
trial period(en, 14 1060, 141071) 
trialperiod (en , 1 4 1 067 , 1 4 1 07 8 ) 
trialperiod(en, 14 1074, 141085) 
trialperiod(en, 14 108 1 ,141092) 
trialperiod(en, 141088, 141099) 
trialperiod(en, 141095, 141 106) 
trialperiod(en, 141 102,141 113) 
trialperiod (en, 1 4 1 1 09, 1 4 1 1 20) 
trialperiod(en,141 1 16,141 127) 
trial period(en, 141 137,141 148) 
trial period(en, 141 144,141155) 
trialperiod(en,141 151,141 162) 
trialperiod(en,141 172,141183) 
trialperiod(en,141 179,141 190) 
trialperiod(en,141 186,141 197) 
trialperiod(en, 141 193,141204) 
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trialperiod(en,141200,14121 1) 
trialperiod(en, 1 4 1 207, 141218) 
trialperiod(en,141214, 141225) 
trialp>eriod (en , 1 4 1 235, 1 4 1 246) 
trialperiod (en, 1 4 1 242, 1 4 1 25 3) 
trialperiod(en, 1 4 1 249, 1 41 260) 
trialperiod(en,141256,141267) 
trialperiod(en,141277, 141288) 
trialperiod(en, 1 4 1 284, 141 295) 
trialperiod(en,141 3 19, 141 330) 
trialperiod(en,141326,141337) 
trial period (ewe, 1 40893, 140896) 
trialperiod(ewc, 140899, 140902) 
trialperiod(ewc, 140900, 1 40903) 
trial period(ewc, 140907, 1409 10) 
trialperiod(ewc, 1 409 13,1 409 1 6) 
trialperiod(ewc, 1 4091 4, 1409 17) 
trialperiod(ewc, 1 40920, 1 40923) 
trial period(ewc, 1 4092 1 ,140924) 
trialperiod(ewc, 140927, 140930) 
trial period(ewc, 1 40928, 14093 1 ) 
trialperiod(ewc, 140935, 140938) 
trialperiod(ewc, 1 4094 1 , 1 40944) 
trialperiod(ewc, 1 40942, 1 40945) 
trialperiod(ewc, 1 40955, 140958) 
trial period(ewc, 1 40956, 1 40959) 
trialperiod(ewc, 1 40962, 1 40965) 
trialperiod(ewc, 140963, 140966) 
trialpericxl(ewc, 1 40969, 1 40972) 
trial period(ewc, 1 40970, 1 40973) 
trial peri od(ewc, 1 40990, 1 40993) 
trial pericxl(ewc, 1 4099 1 ,140994) 
trialperiod(ewc, 1 40997, 1 4 1 000) 
trialperiod(ewc, 140998, 141001) 
trial period(ewc, 1 4 1 005, 1 4 1 008) 
trialperiod(ewc, 1 4 101 1 , 1 4 1 0 1 4) 
trialperiod(ewc, 141012, 14101 5) 
trialperiod(ewc, 14101 8, 141021) 
trialperiod(e wc, 141019,141 022) 
trial period(ewc, 1 4 1 025 ,141028) 
trialperiod (ewe, 1 4 1 026, 1 4 1 029) 
trialperiod(ewe, 1 4 1 033 , 1 4 1 036) 
trialperiod(ewe, 1 4 1 039, 1 4 1 042) 
trialperiod (ewe, 141 040, 141043) 
trialperiod (ewe, 141046, 141049) 
trial period(ewe, 1 4 1 047, 141050) 
trialperiod(ewe, 141053, 14 1056) 
trialperiod (ewe, 141054,141057) 
trialperiod (ewe, 1 4 1 060, 1 4 1 063 ) 
trialperiod (ewe, 1 4 1 06 1 , 1 4 1 064) 
trialperiod(ewe, 141 067, 1 4 1 070) 
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trialperiod(e wc, 1 4 1 068 , 1 4 1 07 1 ) 
trialperiod(ewc, 14 1074, 14 1077) 
trialperiod(e wc, 141 075, 141 07 8) 
trialperiod(ewc, 1 4 1 08 1 , 1 4 1 084) 
trialpericxl(ewc, 1 4 1 082, 141085) 
trialperiod(e wc, 141 088, 141091) 
trialperiod(e wc, 1 4 1 089, 1 4 1 092) 
trialperiod(ewc, 141 095, 141098) 
trial period(ewc, 14 1096, 14 1099) 
tri al period (e wc , 1 4 1 1 02, 1 4 1 1 05 ) 
trialperiod(ewc,141 103,141 106) 
trial period(ewc, 141 109,141 1 12) 
trialperiod(ewc,141 110,14 11 13) 
trialperiod(ewc,141 1 16,141 1 19) 
trialperiod(ewc, 141117, 1411 20) 
trialperiod(ewc ,141123,141126) 
triaIperiod(ewc,141 124,141127) 
trialperiod(ewc, 14 1 131, 1411 34) 
tria]period(ewc, 141 137,141 140) 
trialperiod(ewc,l 41 138,141 141 ) 
trialperiod(ewc,141 144,141147) 
trialperiod(ewc,141 145,141 148) 
trialperiod(ewc,141 151,141 154) 
trialperiod(ewc,141 152,141 155) 
trialperiod(ewc,141 158,141 161) 
trialperiod(ewc,141 159,141 162) 
trialperiod(ewc,141 165,141168) 
trialperiod(ewc,141 172,141 175) 
trialperiod(ewc,141 173,141 176) 
trialperiod(ewc, 141179,1411 82) 
trialperiod(ewc,141 180,141 183) 
trialperiod(ewc,141 186,141 1 89) 
trialperiod(e wc, 1 4 1 1 87 , 1 4 1 1 90) 
trialperiod(ewc, 141 193,141 196) 
trialperiod(ewc, 141194,141197) 
trial period(ewc, 1 4 1 200, 14 1 203) 
trialperiod(e wc, 1 4 1 20 1 , 1 4 1 204) 
trial period(ewc, 1 4 1 207, 1 41210) 
trialperiod(ewc, 14 1208,14 121 1) 
trialperiod(ewc, 141214,141217) 
trialperiod(ewc, 141215,141218) 
trialperiod(ewc, 1 4 1 22 1 , 1 4 1 224) 
trialperiod(e wc, 1 4 1 222, 1 4 1 225) 
trialperiod(ewc, 1 4 1 229, 14 1 232) 
trialperiod(ewc, 14 1 235, 141238) 
trial period(ewc, 1 4 1 236, 1 4 1 239) 
trialperiod(ewc, 1 4 1 242, 1 4 1 245) 
trialperiod(ewc, 14 1 243, 1 4 1 246) 
trialperiod(ewc, 14 1 249, 14 1 252) 
trialperiod(e wc, 14 1 250, 1 4 1 253) 
trialperiod(e wc, 141256,141259) 
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trialperiod(e wc, 141 257, 141 260) 
trial period(ewc, 141 263 ,141266) 
trial period (ewe, 1 4 1 264 ,141267) 
trial period (ewc,141 271, 141274) 
trialperiod(e wc, 14 1 211 , 141 280) 
trialperiod(ewc, 141 27 8, 141281) 
trial period(ewc, 141 284, 141287) 
trialperiod(e wc, 141 285, 141288) 
trial period (ewe, 141 29 1,141 294) 
trialperiod(ewc, 141 292, 141295) 
trialperiod(e wc, 141305, 141308) 
trialperiod(ewc, 141 306, 141 309) 
trialperiod(ewc, 14 1319,141 322) 
trialperiod(ewc, 141 320, 141323) 
trialperiod(ewc, 141 326, 141 329) 
trialperiod(e wc, 141 327 , 1 4 1330) 
trialperiod(ewc, 141333, 141336) 
trialperiod(e wc, 1 4 1 334, 1 4 1 337) 
trialperiod(ewm,140893, 140896) 
trialperiod(e wm, 1 40899, 1 40902) 
trialperiod(ewm, 140900, 140903) 
trial period(ewm, 1 40907, 1 409 1 0) 
trial period(ewm, 1 409 13,1 409 1 6) 
trialperiod(e wm, 1 409 14,1 409 1 7 ) 
trial period(ewm, 1 40920, 1 40923) 
trialperiod(ewm, 1 4092 1 , 1 40924) 
trialperiod(ewm, 1 40927, 1 40930) 
trialperiod(ewm, 1 40928, 1 4093 1 ) 
trialperiod(ewm, 1 40935 , 1 40938) 
trialperiod(ewm, 1 4094 1 , 1 40944) 
trialperiod(ewm, 1 40942, 1 40945) 
trialperiod(ewm, 1 40955, 140958) 
trialperiod(ewm, 1 40956, 1 40959) 
trialperiod(ewm, 1 40962, 1 40965) 
trial period (ewm, 1 40963, 1 40966) 
trialperiod(ewm, 1 40969, 1 40972) 
trial period (ewm, 1 4097 0, 1 4097 3 ) 
trialperiod(ewm, 140990, 140993) 
trialperiod(ewm, 1 4099 1 , 1 40994) 
trialperiod(e wm, 1 40997 ,141 000) 
trialperiod(e wm, 1 40998 , 141001) 
trialperiod(e wm, 141 005 , 1 41008) 
trialperiod(e wm, 141011,141014) 
trialperiod(ewm, 141012,141015) 
trialperiod(ewm, 14101 8, 141021) 
trialperiod(ewm, 14 1 0 1 9, 1 4 1 022) 
trialperiod(ewm, 1 4 1 025 ,141028) 
trialperiod(ewm, 1 4 1 026, 1 4 1 029) 
trialperiod(ewm, 1 4 1 033, 1 4 1 036) 
trialperiod(ewm, 141039, 141042) 
trial period(ewm,141040,141043) 
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trialperiod(ewm,141046,141 049 ) 
trialperiod(ewm, 141 047 ,141050) 
trialperiod(ewm, 141053, 141056) 
trialperiod(ewni, 14 1054, 141057) 
trialperiod(ewm, 141 060, 1 41063) 
trialperiod(ewm, 1 4 1 06 1 , 1 4 1 064) 
trialperiod(ewm,141067,141070) 
trialperiod(ewm, 141 068, 141071) 
trialperiod(ewm, 141074,141077) 
trialperiod(ewm, 1 4 1 075 , 1 4 1 078) 
trialperiod(ewm, 141 08 1,141 084) 
trialperiod(ewni, 141 082, 141 085) 
trialperiod(e wm, 1 4 1 08 8 , 1 4 1 09 1 ) 
trialperiod(ewm, 141089, 141092) 
trial period(ewm, 141 095, 141098) 
trialperiod(ewm,141096,141099) 
trialperiod(ewm, 141102,141105) 
trialperiod(ewm,141 103,141 106) 
trialperiod(ewm,141 109,141 112) 
trialperiod(ewm,1411 10,141113) 
trialperiod(ewm,141 1 16,141 1 19) 
trialperiod(ewm,141 1 17,141 120) 
trialperiod(ewm,141 123,141 126) 
trialperiod(ewm,141 124,141 127) 
trialperiod(ewm, 141131,1411 34) 
trialperiod(ewm,141 137,141 140) 
trialperiod(ewm,141 138,141 141) 
trialperiod(ewm,14 1144,141 147) 
trialperiod(ewm,141 145,141 148) 
trialperiod(ewm, 141151, 1411 54) 
trialperiod(ewm, 141 152,141155) 
trialperiod(ewm,141 158,141 161) 
trialperiod(ewm,14 1159,141 162) 
trialperiod(ewm,141 165,141 168) 
trial period (ewm, 141 172,141175) 
trialperiod(ewm,141 173,141 176) 
trialperiod(ewm,141 179,141 182) 
trialperiod(ewm,141 180,141 183) 
trialperiod(ewm,141 186,141 189) 
trialperiod(ewm,141187,141 190) 
trialperiod(ewm,141 193,141 196) 
trialperiod(ewm,141 194,141 197) 
trialperiod(ewm, 1 4 1 200, 141203) 
trialperiod(e wm, 141201,141 204) 
trialperiod(e wm, 1 4 1 207, 141 2 1 0) 
trialperiod(ewm,141208, 14121 1) 
trialperiod(ewm,141214,141217) 
trialperiod(ewm,141215,141218) 
trialperiod(e wm, 141221,141 224 ) 
trialperiod(ewm, 1 4 1 222, 1 4 1 225) 
trialperiod(ewm, 141229,141232) 
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trialperiod(ewm,141235,141238) 
trialperiod(e wm, 141236,141 239) 
trialperiod(ewm, 141 242, 141 245) 
trial pericxl(ewm, 141 243, 141 246) 
trialperiod(e wm, 141 249, 141252) 
trialperiod(e wm, 1 4 1 250, 1 4 1 253 ) 
trialperiod(ewm, 1 41256,141 259) 
trialperiod(ewm, 141 257, 141260) 
trialperiod(ewm, 1 4 1 263, 1 4 1 266) 
trialperiod(ewm, 141 264, 141 267) 
trialperiod(ewm, 1 4 1 27 1 , 1 4 1 274) 
trialpericxi(ewm, 141 277, 141280) 
trialpericxl(e wm, 141 27 8, 141281) 
trialperiod(ewm,141284, 141287) 
trialperiod(ewm,141285, 141288) 
trialperiod(ewm, 1 4 1 29 1 , 1 4 1 294) 
trialperiod(ewm, 1 4 1 292, 141295) 
trialperiod(ewm, 14 1 305, 1 4 1 308) 
tria]period(e wm, 141306,141 309) 
trialperiod(ewm, 141319,141 322) 
trialperiod(ewm, 14 1 320, 141323) 
trial period (ewm, 141326,141329) 
trialperiod(ewm, 141 327,1 41330) 
trialperiod(ewm, 141 333, 141336) 
trialperiod(ewm,141 334, 141337) 
trialperiod(ec, 1 40899, 1 40903 ) 
tri alperiod (ec, 1 409 1 3 , 1 409 1 7 ) 
trialperiod(ec, 1 40920, 1 40924) 
trialperiod(ec, 140927, 14093 1 ) 
trialperiod(ec, 1 4094 1 , 1 40945) 
trialperiod(ec, 1 40955, 1 40959) 
tri alperiod (ec , 1 40962, 1 40966) 
trialperiod(ec, 1 40969, 1 40973) 
trialperiod(ec, 1 40990, 1 40994) 
trialperiod(ec, 1 40997 ,141001) 
tri alperiod(ec,14101 1,141015) 
tri alperiod (ec, 141018, 141022) 
trialperiod(ec,141025,141029) 
tri alperiod (ec, 1 4 1 039, 1 4 1 043) 
trialperiod(ec,141046,141050) 
trialperiod(ec, 14 1053, 141057) 
tri alperiod (ec, 1 4 1 060, 1 4 1 064) 
trialperiod(ec, 1 4 1 067 ,141071) 
trialperiod(ec, 1 4 1 074, 141078) 
trialperiod(ec, 1 4 1 08 1 , 1 4 1 085) 
trialperiod(ec, 14 1088, 141092) 
tri alperiod (ec, 1 4 1 095 , 1 4 1 099) 
trialperiod(ec,141 102,141 106) 
trialperiod(ec,141 109,141 1 13) 
trialperiod(ec, 141 1 16,141 120) 
trialperiod(ec,141 123,141 127) 
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tria]period(ec,141 137,141141) 
trialperiod(ec,141 144,141 148) 
trialperiod(ec, 1 4 1 1 5 1 , 1 4 1 1 55) 
trialperiod(ec, 141 158,141162) 
trialperiod(ec,141 172,141 176) 
trialperiod(ec, 14 1 179, 141 1 83) 
trialperiod(ec, 141186,1411 90) 
trialperiod(ec,141 193,141 197) 
trialperiod(ec, 14 1200, 141204) 
trialperiod(ec, 1 4 1 207, 1 41 2 1 1 ) 
trialperiod(ec, 1 4 1 2 1 4, 1 4 1 2 1 8) 
trialperiod(ec, 1 4 1 22 1 , 141 225) 
trialperiod(ec, 141 235, 141239) 
trialperiod (ec,141242,141 246) 
trialperiod(ec, 1 4 1 249, 1 4 1 253) 
trialpericxl(ec, 1 4 1 256, 1 4 1 260) 
trialperiod(ec, 1 4 1 263, 141 267) 
malperiod(ec, 1 4 1 277, 1 4 1 28 1 ) 
trialperiod(ec, 141284, 141 288) 
trialperiod (ec , 1 4 1 29 1 , 1 4 1 295) 
trialperiod (ec , 1 4 1 305 , 1 4 1 309) 
trialperiod(ec,141319,141323) 
trialperiod(ec, 1 4 1 326, 1 4 1 330) 
trialperiod (ec, 141333,141337) 



readyeventdate(vp47,trl a,[ 1 ,sep, 1 986] ,[30,sep,l 986]) 
readyeventdate(vp48,trl a,[ 1 ,aug, 1 986] , [3 1 ,aug, 1 986]) 
readyeventdate(vp9,trlc,[l,jul,1986],[31,jul,1986]) 
readyeventdate(vp50,trlb,[ l,jun, 1986], [30,jun, 1986]) 
readyeventdate(vp9,trl b,[ 1 ,may, 1 986] ,[ 3 1 ,may, 1986]) 
readyeventdate(vp50,trla,[l,apr,1986],[30,apr,1986]) 
readyeven tdate(vp9 ,tr 1 a ,[ 1 , mar, 1 9 8 6] ,[ 3 1 ,mar, 1986]) 
readyeventdate(vp40,tr 1 b,[ 1 ,feb, 1986],[28,feb, 1 986]) 
readyeven tda te(vp4 6,tr lb,[l,jan,1986],[31,jan,1986]) 
readyeven tdate(vp40,trla,[l, dec, 1985], [31, dec, 1985]) 
readyeventdate(vp46,trla,[16,oct,l 985], [30,nov, 1985]) 
readyeventdate(vp46,trla,[16,oct,1985],[30,nov,1985]) 



117 



APPENDIX C - EXAMPLE FINAL SCHEDULE FILE 



The following is an example of the 1986 schedule produced using this program and 
what would be found in the file SCHEDULE.pro. 



vp46 ntpi 


1 


oct 


v]>47 mrci 


8 


oct 


vp46 ready_alert 


16 


oct 


vp40 pre_ntpi 


17 


oct 


vp48 command 


21 


oa 


vp40 ntpi 


31 


oa 


vp47 command 


18 


nov 


vp40 ready_alert 


1 


dec 


vp46 natops 


9 


dec 


vpl9 command 


16 


dec 


vp>46 ready_alert 


1 


jan 


vp40 natops 


6 


jan 


vp9 pre_ntpi 


21 


jan 


vp40 ready_alert 


1 


feb 


vp9 ntpi 


10 


feb 


vp50 pre_ntpi 


19 


feb 


vp9 ready_^ert 


1 


mar 


vp50 ntpi 


12 


mar 


vp46 pre_mrci 


24 


mar 


vp50 ready_alert 


1 


apr 


vp46 mrci 


7 


apr 


vp40 pre_mrci 


8 


apr 


vp9 ready_alen 


1 


may 


vp50 natops 


12 


may 


vp40 mrci 


12 


may 


vp46 command 


19 


may 


vp50 ready_alert 


1 


jun 


vp40 command 


23 


jun 


vp47 pre_ntpi 


30 


jun 


vp9 ready_^ert 


1 


jul 


vp48 natops 


7 


jul 


vp47 ntpi 


14 


jul 


vp47 natops 


21 


jul 


vp48 ready _alert 


1 


aug 


vp9 pre_mrci 


5 


aug 


vp9 mrci 


18 


aug 


vp47 ready_alen 


1 


sep 


vp50 pre_mrci 


2 


sep 


vpl9 natops 


8 


sep 


vp9 command 


29 


sep 


vp50 mrci 


30 


sep 


vp50 mrci 


30 


sep 



1985 


2 


oct 


1985 


1985 


11 


oct 


1985 


1985 


30 


nov 


1985 


1985 


18 


oct 


1985 


1985 


25 


oct 


1985 


1985 


1 


nov 


1985 


1985 


22 


nov 


1985 


1985 


31 


dec 


1985 


1985 


20 


dec 


1985 


1985 


20 


dec 


1985 


1986 


31 


jan 


1986 


1986 


17 


jan 


1986 


1986 


22 


jan 


1986 


1986 


28 


feb 


1986 


1986 


11 


feb 


1986 


1986 


20 


feb 


1986 


1986 


31 


mar 


1986 


1986 


13 


mar 


1986 


1986 


27 


mar 


1986 


1986 


30 


apr 


1986 


1986 


10 


apr 


1986 


1986 


1 


may 


1986 


1986 


31 


may 


1986 


1986 


23 


may 


1986 


1986 


15 


may 


1986 


1986 


23 


may 


1986 


1986 


30 


jun 


1986 


1986 


27 


jun 


1986 


1986 


1 


jul 


1986 


1986 


31 


jul 


1986 


1986 


18 


jul 


1986 


1986 


15 


jul 


1986 


1986 


1 


aug 


1986 


1986 


31 


aug 


1986 


1986 


8 


aug 


1986 


1986 


21 


aug 


1986 


1986 


30 


sep 


1986 


1986 


5 


sep 


1986 


1986 


19 


sep 


1986 


1986 


3 


oct 


1986 


1986 


3 


oct 


1986 


1986 


3 


oct 


1986 
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